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Programme 


Für alle Western-Fans bietet der C-16-Computer diesen klassischen Revolver-Zweikampf nach alter 
„High Noon-Manier“. Also auf geht's! - Laßt die „blauen Bohnen“ fliegen. 


Zu Beginn des Programms ist die Entscheidung zu treffen, ob ge- 
gen den Computer oder einen 2. Spieler angetreten werden soll 
(Joystick nach links oder rechts bewegen). Anschließend bitte 


i1 REM FFEHFERHERHERKEHHKHINHFTHTNFHHNTN NIKI TH 
ZREM * * 
3 REM * {C} 1985 * 
4 REM * BY * 
S REM * JAN-PETER SUZIK * 
6 REM * + 
7 REM * * 
8 REM FHERKERUERRS KINN IF HH NH FE TFT N HEN IHRER 


123 FOKRES6,47: CLR: FORT=8Z 

FORT=129B2T013187: READA:FOFET ,A:NEXT 

3Q V=-45788 

POEEV+1B, PEEK (V+18) AND2S1 

8 FOKEV+19,FEEK (V+19) ANDSOR48 

VOLB: COLORB, 1: COLOR4,1+C1=3:02=3: 

REM ####R88%* HAUFTFROGRAMM Kara H 

ONJ1G0T0192,90,78,70,420 

J1=J0Y(1):0NJ1G60T0198,1208,120,100,400 
IFS1=S2THEN3A42 
IFJ1>127THENS1=2: SU=B+2: 
FORT=1TOS@: NEXT 
ONJZEOTOS1B,142,140,149,730 
SOSUP1728:ONJZGOTOS1G, 
IFS2=ZTHENG7 


118 
128 
138 
140 
158 
148 
170 
190 
178 
228 
218 
228 
238 
240 


FORT=1T0302: NEXT: GOTOBA 

REM xx####% SPRUNG SPIELER 1 X##H#8H* 
H1=H1+1:ONHLGOTO2RR, 71 
LO=B+8B: B=B-48: 560T0?&08 . 
LO=B+89: B=B-48: G60TG?48 
LO=B+80: E=B-48: 5DT0268 
LO=B: B=B+49: 50T0778 
LO=B: B=B+4B: G0T0278 
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=3677: 


158,150,150,738 
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den Feuerknopf betätigen. 

Und schon befinden Sie sich mitten in der glühend heißen Wüste 
Nevadas. Zwischen vereinzelten Kakteen taucht sofort der Geg- 
ner vor Ihnen auf und ehe Sie sich versehen, eröffnet dieser das 
Feuer. Also volle Deckung und keine Kugel schuldig bleiben 
(Joystick-Feuertaste betätigen). Durch Hochspringen oder sich 
Niederwerfen kann man den feindlichen Kugeln ausweichen 
(Joystick nach oben bzw. nach unten bewegen). 

Derjenige, der seinen Gegenüber zuerst 3-mal „erwischt“ hat, 
kann eine weitere Kerbe in seinen „Peacemaker“ einritzen. 


=T0847: READA: FOEET „Az NEXT: SYS83 


2=3783: GOSUB1798: GOSUE1470 


SEOUNDS,742,3:POÜKERB+1 ,82: FOEKEB+41 ,83: 50T0240 


IFJZ>127THENS2 =2: KU=V-1: SOUNDS, 449,3: FOKEV ‚85: FOKEV+40 ,86: 60T067@ 


0,220,232,240,250 - 


258 1LO=B: B=B+40: J1=J0Y (1) :H1=9: GOT0278 
242 FPP=PEEK (B+1) :GDOTO2B8 
278 FPP=FEEK (B+81) 


programme 


288 
292 
San 
318 
320 
3358 
342 
350 
5ad 
370 
388 
378 
488 
418 
420 
450 
448 


POKEB ‚64: POKEB+1 „65: POKEB+49 , 66: POKEB+41 ‚67: POKEB+82 „6B: POKEB+B1 ,69 
POKELO,32:POKELO+1 ,323 IFPP=76THENBSU 

IFS1=2THENS48 

IFJOY (1) »1?27THENS1=2: SU=B+2: SOUNDS, 740,3: FOKEB+1 „82: POKEB+41 ,85: GOT0548 
SUTO13B 

REM ###%### SCHUSS SPIELER 1 #8880%% 

PP=PEEK t5U} : POKESU-1924,, 112: POKESU, 76: POKESU-6, 32: POKESU-1930,54 

IFPP< >32THENSYB 

IFL1=5STHENS1I=-B:1L1=9: FOKESU, 32: 60701580 

SU=-SU+4:L1=L1+1 

GOTO13B ö 

REM ##x2%%%%%* DUCKEN SPIELR I #R88%% 

D1=-D1+1:D0ND1GGOT0419,430,440 

POKEB+40 ,64: POKEB+41 „65: POKEB+8B 664: POKEB+81 ‚78: PDKEB+82,79: POKEB, 32 
POKEB+1 ,32:G01047@ 

FORT=1T029:NEXT:GOTO478 

PP=PEEK (B+1) :POKEB,64: POKEB+1 „63: POKEB+4Q0, 646: FOKEB+41 ,67: POKEB+80,68: POKEB+8B 


2,32 


4508 
A6u 
478 
488 
4970 
5a8 
sıo 
328 
550 
340 


san 
618 
628 
658 
6402 
658 
[tel] 
678 
688 
678 
708 
zı@0 
728 
738 
720 
750 
768 
778 
»2 

790 
7978 
808 
818 
828 
838 
848 
8958 
868 
878 


378 


POKEB+8B1 ‚69: D1=@: IFPP=7&THENESS® 

Ji=J0Yt1):G0T0108 

IFS1=2THEN340 \ j 

IFJOY (1) $127THENS1=2: SU=B+42: SOUNDS, 744,3: POKEB+41 „982: POKEB+81 ‚84: 5070348 
G0T0158 


REM ###*%*# SPRUNG SPIELER 2 #anarH* 5s5Q LO=V: V=V+4B: 6070578 

H2=H2+1: DNH2GOT0520 ,530,549,559,56@,578| 36@ LO=V: V=V+40: 6010590 

LO=V+88: V=V-409: 6070588 578 LO=V: V=V+48: GDSUB1720:H2=B: GOTOSYO 
LO=V+88: V=V-42: GOTOS82 5838 PP=PEEK (V) :GOTDSAB 

LO=V+89: V=V-49: G0OTOSBB 578 PP=PEEK (V+80) 

POKEV ‚78: POKEV+1 ,71:POKEV+42, 72: POKEV+41 ,73: FOKEV+8@, 74: POKEV+81,75 


POKELO,32: FOKELO+H „32: IFPP=74THENBF® 

IFS2=2THEN&7B 

GOSUB1&78 
IFJJ>127THENS?=2: KU=V-1: SOUNDZ , 440,3: POKEV , 85: POKEV+49 ,86: 50T0678 
GOTI82 

REM ####### SCHUSS SPIELER 2 #R#%%4 

PP=PEEK (KU) : POKEKU-1224 54: POKEKU. 76: POKEKU+6 „, 32: POKEKU-1B18. 112 
IFPP< >32THENBSG . 
IFL2=STHENS2=B: L?=9: POKEKU, 32: GOT084 

KU=KU-6: L2=L2+1 

GOT08B 

REM ##%x#%#% DUCKEN SPIELR 2 KRHHHR* 

D2=D2+1:0ND2GOT0748,768,778 

FOKEV+40, 70: POKEV+41,71:FOKEV+88 , 80: POKEV+81 „73: PDKEV+79,81:POKEV,S52 
POKEV+1 ,32:60T0982 

FORT=1T02B: NEXT: GOTD8D2 ; 

PP=PEEK (V) = POKEV ‚78: POKEV+1 „71: POKEV+42, 72: POKEV+41 ,73:POKEV+8B, 74: POEEV+79, 


POKEV+B1 „75: D2=9: IFPP=7&THENIYD 

GOSUB1728: 60T0158 

IFS2=2ZTHENGT7®O 

GOSUB1698 

IFJJ>127THENS2=2: KU=V+39: SOUNDS „448 ,3: POKEV+89 ‚87: POKEV+49,85: G0T0678 
GOTOSB ° 
REM ar GETROFFEN KRRERRRRRRR 
C1=C1-1:POKEB, 32: POKEB+1 ,32: POKEB+40,32: POKEB+41 „32: POKEB+88, 32: FOKEB+81,32 
POKEZ654, 112: POKE2655,112 5 

POKET1 ,98: POKET1+40, 99: POKET1+1, 100: POKET1+41, 101: POKET1+2,102:POKET1+42, 105 
SOTOYZB 

C2=C2-1:POKEV 32: POKEV+1 „32: POKEV+40,32: POKEV+41 „32: POKEV+8B,, 32: POKEV+81 ,52 
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7UB FOKE2678,54: POKE26579,54 
710 FOKET2,184: PÜKET2+49,185:POKET?+1,186: POKET2+41 , 187: FOKET2-1,188: POKET2+39 ,1 
0? 

928 L=8: FORT=8ZBATOSBBSTEP-2U8:L=L-. 4: VOLL: SOUND1 ,T,5:SOLIND2, T-28,3: NEXT 

938 IFC1=BORCF=AOTHENFGR 

g9a9 51=B:52=0: H1=2:H2=0B: D1=-9:D7=B: FF=D: J1=9: J?=B:Li=0: L?=9: 505UBR1470: VOLB: GOTOSO 
958 REM #8 GAME DVER KRERKENHEHR 

968 IFCI>CZTHENCHARI 1,23, "BIS IEGERSR*" = ELSECOLOR1 „7,3: CHAR1 , 29,25, "#IIBIEGERI" 
978 FORT=1T07:CHAR1,15,T,"WAGAME OVEREM":COLOR1,15,T:2CHAR1,15, 1-1," m" 
788 VOLB:FORTT=1TO18:SQUNDI,14*TT*T,22NEXT:NEXT: RUNGQ 

998 REM *** DATEN FUER ZEICHENSATZ #*#* 

1009 DATA162,90,187,0,228,157,0,48,189,0,209,157,08,49,202,208,241,9& 

1819 DATAR,7,7,31,7,7,3,7 . 

18220 DATAU,192,192,248,64,64,128,128 1258 DATA15,21,531,15,0,2,9,0 

iB3B DATA15,28,298,27,27,28,14,3 260 DATA28,62,62,62,62,62,62,62 

1048 DATA192,224,240,240,249,240,498,224 | 1270 DATA255,255,255,255,62,62,62,62 
1BU5B DATA1S,14,78,28,28,56,62,62 1288 DATAB,B,2,24,60,60,624,68 

12690 DATA?24,112,56,56,56,56,31,31 1278 DATA252,252,248,740,0,02,0,8 

19278 DATAB,3,3,15,2,2,1,1 1302 DATA64,224,248,2572,254,255,255,255 
1050 DATAR,224,224,248,224,224,192,224 |131@ DATAB,28,62,126,255,255,255,255 
1898 DATA3,7,15,15,15,15,12,7 1320 DATAQ,B,0,24,60,255,255,255 

1100 DATA240,56,56,152,152,56,112,192 13582 DATA&B,66,153,161,161,155,66,68@ 
111® DATA14,28,28,28,28,28,248,248 1348 DATAG4,98,808,72,38,22,14,6 

1120 DATA249,112,56,56,56,28,124,124 1350 DATAQ,B,2,0,168,168,124,115 

1138 DATAB,B,0,24,24,0,2,8 1360 DATA127,127,126,16,16,0,0,2 

1140 DATA2S5,255,255,255,255,755,255,255| 1378 DATAQ,0,0,2,62,127,253,253 

1150 DATA192,224,240,249,240,255,63,255 | 1386 DATA1S3,151,230,254,124,2,0,0 
1148 DATAG,B,B,12,12,252, 252,252 1398 DATAB,B,8,0,5,5,5,255 

1172 DATA3,7,15,15,15,255,2592,255 1400 DATA2ZSSI,235,8,82,0,8,2,0 

1182 DATAB,B,0,48,48,63,63,63 1419 DATAB,B,8,0,124,254,191,191 

1178 DATAQ,172,192,249,64,64,128,157 1428 DATA153,195,185,127,62,0,0,8 
1282 DATA248,248,248,240,740,240,498,2724 |1438 DATAB,B,8,0,8,8,62,204 

1219 DATA248,248,244,740,242,255,63,255 | 1440 DATA254,254,170,8,9,2,0,0 

1228 DATAB,3,3,15,2,2,1,249 1458 DATAB,2,0,0,192,192,192,255 

1238 DATA31,31,15,15,15,15,12,7 14428 DATA255,255,0,0,8,0,0,8 

1248 DATA31,31,15,15,15,255,252,255 1478 REM sunxsnunae SPIEFELD KRRrRunERneH 
1489 SENELR: FORT=1T07: COLOR1,15, TEFRINT NÖ, 
"SNEXT 

149@ COLORO,8,6:COLOR4,3,3:COLOR1,12,1 

1508 PRINT“ Uhr | IE I I Ve | FI ICOLOR1 ,6,1 

1510 PRINT" +" 

1520 PRINT" + Er 5: +4" 

1538 PRINT" #+# De +" 

1540 PRINT" el 

1558 PRINT "RRERE" 

1568 PRINT" + IH+" 

1578 PRINT" Er: Pre 

1580 PRINT" [+ 

1598 PRINT" H+ Br" 

1400 PRINT" " 

1610 B=3437: V=-3663 

1620 FORT=24935T02693STEP49: POKET „112: POKET+1 ,112: NEXT: POKE2695,112 

1638 FORT=25197027195TEP4B: POKET „54: POKET+1 ,54:NEXT:POKE2718,54 

1640 POKEB,64: POKEB+1 ‚65: POKEB+48,, 66: POKEB+41 „67: POKEB+8Q, 68: POKEB+91 ,69 

1658 POKEV, 78: POKEV+1,71:POKEV+40, 72: POKEV+41 ,73: POKEV+B@, 74: POKEV+BL,75 

1660 CHAR1,1,23, "LEBEN: ":PRINTC1:COLOR1,7,3:CHAR1,29,23, "LEBEN: ":PRINTC2 

1670 RETURN 1790 JJ=J0Y (2) 2RETURN 

1698 ONSPGOTO1718,1700 1728 ONSPGOTO1748,1738 
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Noch wenige Pro- 
'grammzeilen sind 
einzugehen, dann 
‚können Sie Ihren 


Colt ziehen und die 
„blauen Bohnen” 
fliegen lassen! 


1738 J2=J0Y (2) »RETURN 

1748 IFPEEK (3657) =76 THENJZ=5: RETURN 

17508 IFPEEK (3685) =74THENJ2=1:RETURN 

1768 IFS1=BTHENJZ=INT {RND (1) #5) +1: RETURN 

1770 J2=128:RETURN 

1788 REM zauxunnana TITELBILD BRRRRRRERH 

17998 SCNELR 

18828 COLOR1,2,4 j 

i818 B ı 1 3 ın sı I 17" 
1828 ı 3 Dad nsaıı DR 1" 
1838 PRINT” u ve BE u Bu Bu I BE Bu vn 1 Eu 
1842 PRINT" [ ee Eu u u Bu Bu Bu u m 55 
1858 FRINT" | LE ii: IR ne 1”- 
1869 PRINT 

1870 PRINT” 11 8 ED mMIN AN n" 

1888 PRINT" nei 13 | u” 

1890 PRINT” ııı wi u L" 

1980 PRINT" 0.14 EN | 2" 

1918. PRINT" Hi SE OK DIE 1ER" 

1928 COLOR1,7,5:CHAR1,8,21," 1985 BY JAN-FETER GUZ IE." : POKEIF?TB,I6 
1938 GOSUB2B2O 

1949 COLOR1,8: CHAR1,19,16, "WPRESS FIRE TO STARTE" 


1950 
19768 
17708 
1998 
17970 
2008 
2818 
2928 
22358 
2940 
2050 


CHAR1,5,13," 


S0T01972 


RESTORE2B48 


COLOR1,18,4:CHAR1,5,13, "Wl SPIELERE":CHAR1,25,15," _ 
":CHAR1,25,13,"82 SPIELERE":SP=2Z 

IFt(JOYC1)ORJDY (2) )=3THENI1768 

IF{JOV (1) 0RJOY (2) ) =7THEN1950 

IF (JOY 1) ORJOY (2) ) >127THENRETURN 


REM XaxHs LIED KRRRRRRRRERERE 
FORT=1T015:READA,B: SOUND1 ,A,B: NEXT: RETURN 


DATA685,20,739,18,770,10,685,20,739,18,778,10 
DATA739,30,770,10,810,40,739, 


",5P=1:60T01778 


20,681,10,643,10,685,20,739,20,770,40 





Bei diesem Programmbeitrag handelt es sich um eine Ableitung der | 


bekannten Pac-Man-Version. 


Sie befinden sich in einem riesigen, mit 
zahlreichen Winkeln und Nischen verse- 
henen Irrgarten. Ihre Aufgabe besteht dar- 
in, die im gesamten Labyrinth verstreuten 
Punkte einzusammeln. Dies scheint zu Be- 
ginn ein leichtes Unterfangen zu sein, 
doch dann taucht ein Gespenst namens 
„MOVER“ auf. Mover wirkt anfangs voll- 
kommen harmlos bis desinteressiert und 
läßt Sie ohne Störung bei Ihrer „Punkte- 
fresserei“ gewähren. 

Das Ganze ändert sich schlagartig, nach- 
dem Sie eine bestimmte Anzahl von Punk- 


ten vertilgt haben. Nun setzt Mover zur 
Verfolgungsjagd auf Sie an, und er ist ra- 
send schnell. Die einzige Chance, dem 
Verschlingen durch Mover zu entgehen, 
bieten die drei im Labyrinth versteckten 
Herzen. Wenn es Ihnen gelingt, eines der 
Herzen zu vertilgen, wird das Gespenst für 
kurze Zeit auf seiner Verfolgungsjagd zu- 
rückgeworfen. 

Mover ist nicht nur rasend schnell, son- 
dern besitzt zudem noch die Fähigkeit, für 
einige Sekunden unsichtbar zu werden. 
Aber lassen Sie sich auf Ihrer „Punkte- 


GComputbe mi 


hatz“ nicht entmutigen und zeigen Sie 
Mover die Fersen! 

Falis Sie nach dem Verlust Ihres Lebens 
noch einmal spielen wollen, betätigen Sie 
bitte die Return-Taste, und anschließend 
können Sie zwischen Joystick- oder Ta- 
statursteuerung wählen. 


- Joystick in Port-1 anschließen - 


Tastatur: J = nach oben 
M = nach unten 
, = nach rechts 

INS/DEL = nach links 
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REM *### MOVER #88 

REM 

REM (C) BY HOLGER KRAUL 

REM 

X=B: Y=B: J=B: I=B:P=O: FA=O 

A=198:1L>=47:D=44: E-I6: F=40: H=4&4: K=2608: L=1 13: M=72: N=85: 0=810: Q=87: R=9BD 
GOTO1ZUR 

ıa 5=-5B:SC=9: Ru=-1 

sg GDSUBSBUB: GOSUB2FIB 

188 BS=3972: FA=B5-2848: I=RND {-TI) :MO=162 

110 GOSUB2B8: X=B: POKEX „81:3 POKEX-FA,72 

iz@a GOSUB2AQ: Y=B: POKEY,MO:POKEY-FA,SQO 

1358 PU=9: VOL7:PC=87; T=1: PO=46: YM=1: XM=0: XT=2: Z=59: H2=192: TN=1005 
197 GOTD4B88 

288 DO: B=BS+INT (RND (1) #20) +10+4Bx* (INT <RND(1) #22) +1) :P=PEEK (B) 
2180 LODPWHILEP=1B2ORF=B3ORF=810ORP=87 

228 RETURN 

2580 PRINT"BPUNKTE + "SC+HPUTAB (15) "RUNDE: "RUTAB (28) "HIz "HIS RETURN 
422 DO: IFX=YTHENEXIT:LODOP:GSOTO7TRO 


SENDEN Bm 


418 IFJTHEN44@ 440 P=JDY (1): IFP=7THENXT=—1 
420 I=PEEK (A): IFISCTHENXT=-1 442 IFP=3THENXT=1 

422 IFI=DTHENXT=1 j 444 IFP=STHENXT=F 

424 IFI=SETHENXT=F 446 IFP=1THENXT=-F 

425 IFI=34THENXT=-F 458 IFPEEK (X+XT) S>HZTHENXM=XT 


428 GOTO458 468 P=PEEK (X+XM) : IFP=HZTHENS1O 


488 IFP=HTHENPU=PU+1:SDUNDS3,TN, 1: IFPU=KTHENEXIT:LOOP: SOTDSBER 
490 POREX-FA,L:POKEX „XM+F:3 X=X+XM: POKEX „PC: POKEX-FA,M 

492 IFP=NTHENEXIT:LODP:GDTOYRR 

495 IFX=YTHENEXIT:LODP:GOTD7BB 

518 IFT=1THENS6B 

528 SOUND1 ,R,2:POKEY „32: Y=Y+YM: YM=PEEK {Y) -F: PDKEY-FA,Z: POKEY „MO 
5339 IFABS(YM) <>FTHENIFABS (YM) <> THENSOUND1 ,889,5: T=12 PO=YM+F: GOTOABB 
550 LDOP 

368 P=PEEK (Y+YM) = IFP=HZTHENGBB 

3578 POKEY,PO:POKEY-FA,8: Y=Y+YM: POKEY-FA,Z:PÜKEY „MO: PO=P 

s88 I=ABS(P-F)3s IFI=S10ORI=FTHENT=B: YM=P-F:PD=32 


s32 LDDP - 728 SC=SC+PU: PU=B: IFSC>HITHENHI=SC 


608 P=INT(RND(1)%#4) : IFP=BTHENYM=-1 783; PRINTEHRS (27) "WIEHRELZZINVS 

&05 IFZ=S@OTHENZ=113:ELSEZ=58 718 GOSUB238: POKEX-FA,S® 

618 IFP=1THENYM=1 728 VOLB:FÜRI=1Q20TOBSTEP-18: SOUNDS, 1,1 
6208 IFP=2THENYM=F 738 POKEX ‚PC: IFPC=B1THENPC=16BD:ELSEPC=B1 
648 LOOP i j . 758 PRINT"BWERWISCHT!" 


768 PRINT" NEUES":PRINT"B SPIEL":PRINT"N MIT": PRINT"SCHRETURNE] ” 
780 DO:GETA$:LODPUNTILAF=CHR$ (13) 

798 GOTO1UUB 

8BRB GOSUB23SB: SE=SC+PU:PU=8 

Bi FORI=1TD2B: SUUNDI „52B,2:SOUND1 ,700,1:SOUND1,759,2:NEXT 

852 PRINT"KN RUNDE":PRINT" BESCHAFFT": :PRINT ugngt NRETURNEI " 

8458 DU: GETA$:LODPF UNTILAF=CHRE (153) 

878 RU=RU+1:5=5+59: G0T058 

FuD POKEY-FA,SB: SDUND1 „568,3: FORI=1TD18B: NERTIEDKEN SER, 2: POKEY, PO 
995 GOSUB238 

718 GUSUB288: PO=P: Y=B:POKEY „MD: POKEY-FA,58: Z=58 

720 IFP=370RP=410ORP=BORP=BBTHENT=B: YM=P-48: PO=32 

938 FORI=1T01B8: NEXT:GOTO4UR 


Compute mit - Sonderheft - 1/86 Ä CSompupe nie 








programme 


1208 COLOR4,12,5:COLORQ, 2: GOSUBS@BR: PRINT" MOVER": u nn 
a ee | ER": PRINT 


iB1B PRINT" MIT":PRINT"BNOYSTICK”" 
























10290 FRINT"S ÜDER":PRINT"WTASTATUR: ":PRINT"M JE, Be. BummM" 
1852 PRINT" (J/T): Bil"; 
1240 DO: GETA$:LOOPUNTILAF="J"ORAS="T" St1B PRINTIR. MEER 
1858 PRINTAS"E";:J=B: IFAS="I"THENJ=1 S120 PRINTW.I-IE- . - W-R. -B-OWG- WR" 


1858 FORI=1T040@:NEXT:50TD18 5130 PRINTER RE EU 














SBBR PRINT"LÄI"TAB(PCHRSC2TI"T" 5140 PRINTER... MER MR U 
sQ1@ PRINT" BEREITETE! bi 5156 PRINTER. . Bo... LS w 
5B2B PRINT". onen Me nn Dr 5160 PRINT". nu 0 nn Din Me DDR BRREE- RR. 
SO3B PRINTUR. RER Re RER ED 5170 PRINT" HESS EEE... RER ER" 
5840 PRINTER...» +. -.. Pe. 95 95 Pame: 15 Pape 2 5188 PRINTER nen 
SB5B PRINT'B. BIBI. --E-8-0W. Bi RR" 5198 PRINT"B.B.W- RM. B. BE. REM WE- y 
5868 PRINTER... EEE. BR RR" S200 PRINT"E.M. oc nun Meuurun FR. 2 
5070 PRINT". WI. W. - - IE. 18. IE- TURBINE. KR. In. „3 SZ1B PRINT". ISMRSSE- IR. NE. TREE. IE. DRE. WE. DE. 
SOBO PRINTER RE DE 5220 PRINT"# Bon 02 
5898 PRINT'B. EEE ec u 5258 PRINT" > 
PRINT'R-W. Burner. BR RE 531B RETURN 





- Ein Spiel nach dem Motto „Fressen oder gefressen werden!“ 





Sie befinden sich ineinem Labyrinth und versuchen, die in den Gän- 

gen und Winkeln versteckten Punkte einzusammeln. Beilhrer Punk- 

tejagd bleiben Sie natürlich nicht ungestört, denn die im Labyrinth 

herumrasenden Monsterstellen eine äußersternsthafte Bedrohung 

für Ihr Leben dar. Falls Sie mehr als 3mal mit den Monstern kollidie- 
.ren, ist Ihr Spielerdasein beendet. 






Für Sie seibst besteht ebenfalls die Mög- 
lichkeit, den Monstern den Garaus zu ma- 
chen. Falls es Ihnen gelingt, einen der im 
Irrgarten versteckten Apfel zu vertilgen, 
verwandeln sich die Monster kurzzeitig in 
Kreuze. Innerhalb weniger Sekunden kön- 
nen Sie nun selbst Ihren Feinden zu Leibe 
rücken. Jedes gefressene Monster be- 





schert Ihnen entscheidende Punktgut- 
schriften. 


Eingabetips: 

Nach dem Eintippen das Programm bitte 
absaven und dann mit RUN starten. Unter 
Umständen kann sonst die Datasette wäh- 
rend des Absavens einige Schwierigkei- 





ten bereiten. Falls sich im Programm ein 
Fehler befindet, erscheint ein unerklärli- 
ches Wirrwarr auf dem Bildschirm. Um 
diesen Zustand zu beheben, hitte gleich- 
zeitig RUNSTOP-Taste und RESET-Taste 
drücken und dann die RESET-Taste zuerst 
loslassen, Anschließend „X“ und RETURN 
eingeben. 


1B REM RUHR HEN EHEHERRHRNR &d REM #* ANDREAS LUPERT #* 
zu REM #* FAU-MAN *% 72 REM BBBRHHSRBRHe 
Sa REM ** ** 32 COLOR@,1:COLOR4,1:60SUB938: 6BT0190 
48 REM ** (0) BY ** 98 FRINTHFTAB (16) E: RETURN 
Sa REM *%* ** 100 SCNCLR: VOLS 
118 PRINT" 
128 PRINTSRIETTTTETETERTIEESERERERERIREASTDERIIS IT 
138 PRINT"-EIN-Ml Bm li 
148 PRINTER TEEN 
150 PRINTER eriktmrl I 
160 ERINTTRREE ERSTER RR 
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programme 









172 PRINT RE — Ei 1 I 

188 PRINT E ET EI TIERES ET EEE TI FI TE EI TI 

178 PRINT EIER ——— EEE IE ——— I 

220 PRINT" SEITE ET ET EEE — TI TET IT I 

212 PRINT ZIE——— BE IHR PLAVER 1m Ei — Gi li 
228 FRINT"RI SIT FIT IB I I TI — A I HIBHEI TI TI II II 5 

258 PRINTER — 10 SCORE — 1 

242 PRINT TI TI TER ET —— IT IR TI EI II 
259 FRINT' AIR ÜBER La — Ti 
268 PRINT" IT TIEI TI I HI ERT — I TETEEITTIE I 

270 PRINT a 

2882 PRINT TTS TTIEEE TEE TEE EEE ET I 

298 FRINT-EIR I 

588 PRINT"EIRHEI EI TEE ET EI IR 

318 PRINT"-EI EHE — AH I 
328 PRINT IR TI I TI 

33a FRINT" BIBI HZ OH I I 
348 FRINTTWELLISISIISERSTERTIRI TTS EIER TRIER TI 

35@ FORI=BT039: POKESB72+96B+1,67:NEXT 

3568 m 

370 GG=INT {RND (2) #48) +1 

3588 ZX=INT (RND (9) #20) #40+3072+00: IFPEEK (ZX) < >4A THENGOTO37O 

398 P=9I:ASt1)="+1BO0":A$(2)="+150B" AS CH) =" +2BOD" 2 A$ 4) =" H3IDOR" 

48a POKEZX,71:00=3144: WW=3232: 

418 FORGT=1T03:61=3811:62=3434: YZt1)=1: Y2(2)=-1: Y2 (3) =40: Y2 (4) =-48: U1=3:63=3374: 
Yv3cı)=1 Germanen. nn LITT, 
428 Y3(DI=—1 “ 
430 Y3(3)=40: 3 (4) =-40: U2=3:A=3374-3:C=64:BN=65 ", 

440 FÜR@=1T071:READX,Y1:FORO=1T0X: POKEG1,32: B1=G1#Y1 

452 POKEG1 ,BN: POKEG2,66 ”, „.Bsst, achten 
448 G2=82+Y2 (11) us Sie auf die letzte 
47@ IFUI=<1THENSOTOGBD “ W aaa 
480 IFPEEK (62) =47 THENG2=62-Y2 (U1) = U1=INT(RND (9) #4) +1 6 


498 
sag 
518 
528 
5330 
348 
359 
=.) 4] 
Ss70 
588 
378 
&u8 
6102 
628 
658 
2 ir] 
652 
668 
678 
638 
678 
7aa 
718 
728 
738 
749 
758 


POKEG2 „BN: POKEBS , 664: 53=653+Y35 (U?) 

IFPEEK (63) =647 THENGS3=63-YS {U2) 2 U2=1INT {RND (9) #4) +1 
POKEGS,BN: IFG1=ADRGZ=AUORGS=ATHENGTE 

GETB$: IFLEN (B$} >OTHENAS=B$ 

IFA$="4" THENPOKEA, 32: A=A+1:B=-1:C0=64:607T0579 
IFA$="A" THENPOKEA 32: A=A-1:B=1:0=64:60T0570 
IFA$S="W" THENPOKEA , 32: A=A+40: B=-48: C=644: G0T0570 
IFA$=" 3" THENPOKEA , 32: A=A-40: B=40: C=64 

REM 

S60TO&LAQ 

POKEA ,C:NEXTO,@:RESTORE1150: G0T0448 

IFPEEK 1652+48) < >47 THENU1=3: BN=45: 6010482 

IFPEEK (62-48) < >67 THENU1=4: 50 TO&SB 

GOT0498 
IFS=WTHENIFRND (8) #19 >BTHENPOKE3497 „INT (RND (9) #3) +68: 5S=1: BOTOBSB 
IFSTHENS=S+1: IFS=4THENPOKE3497 ,32:5=8 

GOTO488 

IFPEEK (A) < >47 THENSOTO&BO 

A=A+B: A$="":G0T0590 

IFPEEK (A) =46THENPOKETR , 16: E=E+12: G05UB9B: VOLB: SOUNDS , 1920, 3: GOT0598 
IFPEEK (A) =68THENE=E+100B: SOSUBFB: I=1:60T0768 

IFPEEK (A) =59 THENE=E+1588: GDSUB9A: I=2: S0OT074 

IFPEEK (A) =7BTHENE=E+?OB8: GOSUBIB: I=3: GOTD768B 

IFPEEK (A}=71 THENE=E+208: GOSUBIB: BN=72: VOLS: SOUNDS, 1210,28: GOTOSFB 
IFPEEK (A) =72THENE=E+3289: G0SUB9B: I=4: GOTO762 . 
IFPEEK (A) =45THENB79 

GSOTUSIGB 


Dina EEE 
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programme 


768 POKEA ‚64: FOROS=1T03: PRINT"B"TAB(19) A$ (I) :POKEB1 „65: POKEG2 „65: POKEGS ,65 
778 VOLö&: SOUNDS, 1928,15: FORTY=1T0488: NEXT 
788 PRINT"E"TABLLIMN" " 





798 POKEG1,72:POKEG2,72: POKEG3,72 840 GOT0OS7A 

sa2@ FORTY=1TO38@:NEXT 854 VOL7:FORI=1T0100BSTEP1BR: SOUND ,1,5:NEXT 
81a NEXT 86a GOTDSAH 

820 IFI=4THENA=3371: BN=65: GOT0844 87B IFBN=72THENE=-E+3BAB: I=4: G0T07682 

838 POKESS368,71 889 P=P-1:5=B 


8970 FORF=1T015@: NEXT: IFP=OTHENPRINT"S"TAB(18) "WE: G0T0878 
9708 RESTORE1 150: POKEG1 ‚32: POKEG? „32: POKEG3 ,32:POKESS67+P ,52 
918 FORI=1UBBTUISTEP-1AR: SOUND1,I,19:NEXTI,GT 


928 GOTO1218 980 X=12797 

950 Vv-45290 j 998 READA: IFA=-1THENIBSB 
948 POKEV+18,PEEK (V+18) AND2S1 ıiuaB X=X+1 

950 POKEV+19,PEEK(V+19) ANDSOR48 128190 POKEX,A 

968 FORT=832T0849:READA:POKET „A:NEXTT 1228 GOTO?F7B 

9770 5Y5952 1030 RETURN 


1248 DATA142,0,189,0,208,157,0,48,189,0,209,157,0,49,202,288,2#1 „76 
1850 DATA195,175,36,60,126,90,107,56B 


1068 DATAS6,124,214,254,198,254,254,198 1102 DATAB,36,54,54,54,54,18,0 

1870 DATAQ,B,0,24,24,0,0,8 1118 DATAB,1464,219,219,219,219,75,8 
1n20 DATA219,129,36,153,153,36,129,217 1122 DATA24,8,126,255,255,259, 126,68 
1070 DATAB,16,24,24,24,24,8,0 1130 DATA24,24,126,126,24,24,24,24 


1140 DATA-1 


1150 DATAS,40,19,1,6,-48,8,-1,4,-40,8,1,2,40,13,-1,2,-42,3,1,6,40,7,-1 
1150 DATA2,48,15,1,2,-40,8,-1,2,-40,18,-1,2540,7,-1,2,40,14,1,2,740 
1170 DATA7,-1,6,-40,4,1,2,40,6,-152,40,73-1,2,-40,7,1,2,-40,7,01,2,-48 
1190 DATA7.1,2,-40,2,1,2,48,4,1,2,-40,15,-1,2,740,7,1,2,48,2,1,4, 40,751 
1190 DATA2,-40,14,-1,2,48,7,1,2,42,18,1,2,-40,9,1,2,-48,15,-1,2,48,7,1 
1208 DATA6,40,3,-1,2,-48,13,1,2,-48,8,-1,2,48,2,-1,8,48,9,-1,1,48 

1210 GETKEYOF 

1229 SCNCLR 

1238 PRINT" WBELLENITDRELR NVGERRESRAGGNTE! 

1240 PRINT'EEDEU KHEARSETR"E"TPRUCNEKETIE BERRGRREGISCHHATE- 

1250 PRINT"BENGORCKH BEGINN SSEPOIBERN? DiRIE/RNM 

z20M FORe237 29 1288 IFW$="J"THENRUN 

12/0 .GEIKENWE 1298 IFW$<>"N"THEN1270 


Überwinden Sie als || MP Man die große Mauer! 
Die Spielaufgabe besteht darin, Ihre Spiel- | Ihres Spielerdaseins. Neben der Beschaf- ! Siesich unversehrt zur anderen Mauersei- 
figur von der linken Mauerseite unver- fenheit der Maueroberfläche müssen Sie | te hinüberretten können. 

sehrt auf die rechte zu bringen. DiesesUn- | noch gleichzeitig den herumfliegenden 

terfangen ist natürlich nicht ohne die Geschossen ausweichen. Die Steuerung kann per Joystick oder 


Überwindung von einigen Schwierigkei- | Also aufgepaßt und richtig reagiert, damit über. die Tastatur erfolgen. 
ten zu verwirklichen. Die Oberfläche der 






















ie un: > Joystick i Taste’ Wirkung 
Mauer ist in unregelmäßigen Abständen Fauertaste + oben s® Sprung. nach oben 
mit gähnenden Abgründen versehen. Die- Feuertaste +rechts F“ Sprung nach oben/rechts 
se Abgründe müssen durch dynamische SUENISE hr £ REGE 
rechts „© rechts 


und gut getimte Sprünge überwunden | ——— 
werden, anderenfalls ereilt Sie das Ende ! Wenn das Titelbild erkennbar ist, Space-Taste drücken, und das Spiel kann beginnen. 
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98 


programme 


Vv=4528908 
POKEV+18 ,PEEK (V+1B) AND2S1 
FOKEV+19,PEEK (V+19) ANDSOR48 
RESTORES44: FORT=83270849: READA: POKET „A:NEXT:SYSB32. 
RESTORESSB: FORT=12808T012895: READA: IFA>-1THENPOKET „A:NEXT 
G05UB298: SDSUB449:1_1=5:5C=B 
A=2: B=15: Y=38: Z=15:5P=B 

=JOYt1)s: TA=PEEK (198) 
IFJI=SORTA=2BTHENA=SA+1:A (2) =A-1:Bt2)=B:GOT012Q 


1BuB IFJ=1290RTA=13THENSP=1:G0OT012B 

118 IFJ=1310RTA=21THENSP=2 

128 IFA>SSTHENGOSUBZ7O 

138 IFY>1THENY=Y-1:POKE3573, 32: ELSEY=38 

1420 POKE3Q7Z+Y+Z*%40 ,46: POKESBT7TZ+Y+1+Z#48,32 

158 IFSP=BTHENGOSUB24B 

160 IFPEEK (5072+A+B*48) =464 THENSBB 

178 IFSP=BTHENPOKES3B72+A+B#40, 65: POKESB7Z+A (2) +B (2)%#40,32 
188 IFSP=1THENB=B-1:B{2)=B+1:A (2) =A: 6G0SUB258 

199 IFSP=1THENIFB<S14THENSP=4 

280 IFSP=4THENB=B+1:B{2)=B-1:A (2) =A: GOSUB250 

219 IFSP=4ANDB=15THENGOTOSSS 

2280 IFSP=ZTHENA=A+1:A(2)=A-1:B=B-1:B (2) =B+1:605UB258 

230 IFSP=2THENIFB< 13THENSP=4 

248 IFSP>BTHENGOTOI1SB: ELSEGSOTOSB 

250 POKE397Z+A+B#4D , 64: FOKESB7Z+HA 2) +B (2) #40, 32: RETURN 
260 IFPEEK (3972+A+ (B+1) #48) < >AATHENGOTOZBB: ELSERETURN 
278 POKE3B72+A+B#40 , 32: A=A-39: SC=-SC+1 98: SCH-STRF (SCI SCHAR1 ,35,2,5C$: RETURN 
288 SCENCLR:COLORQB,2,7:COLOR4,1:C0L0OR1 ,1 

278 PRINT"BIIN":COLOR1,3,3 


558 PRINT"BRBIER-— RR IERpbR FB -Bei-EEt-" : COLOR1,1 

548 CHAR1,9,11,"7 1985 BY DETLEV KROLL" 

359 CHAR1,18,18,"CDOPYING"”:CHAR1,18,19, "AND" SCHAR1,22,18, "HIRING" 
368 CHAR1,18,22,"STRICTLYH ALLOWEDE" 

33 A=4: B=B: Z=15 

378 FORX=1T012 


SP=2: XX=1:GETA$: IFAS< >" " THENS7S: ELSE18B 


372 NEXT: POKE3072+A+B#49 ,32:G0T0365 

373 XX=9: SP=B: RETURN 

588 POKESB7Z+A(2)+B(2)#48,32: POKEISB7Z+A+ (B+1) #40 ,64: POKESDO72Z+A+B*4Q, 32 

398 FORX=1T020B: NEXTX:LI=LI-1:L1I$=STR$ (LI) SCHAR1,7,2,L1$ 

480 CHARI BL," he“ 

418 FOKE3972+Y+408%#2 „32: POKESBO72+A+B*48, 32: IFLI=BTHEN42B: ELSE7O 

420 FORX=1T0508: NEXT: SENELR:CHAR1,11 ‚Su ı4ı “. +B":REM REVERSE OFF 

430 CHAR1,2,18,"SCORE ®":CHAR1,8, 19,SC$: IFSC>HETHENHC=SC: CHAR1,2,14,"NEW HIGHSCO 


448 CHAR1,12,22,"NOCH EINMAL? J/N": GETKEYO$: IFO$="N"THENEND 
450 IFO$="J"THENGB: ELSE44B 
468 SCNELR:COLORQ,B,7 


478 CHAR1,B,16," 11 11 81 Hl 
488 CHAR1,8,17, "1 1 1 71 1 71 1771077 
498 FORX=18T023:CHAR1,8,X, "I 111 

1} 


! 
|"zCOLOR1,2,4 
VEITTITITEEIT"ENEXT 


11 
17T 
til 
tıtl 


I 


EEREREEEEE 
588 CHAR1,8,24," 1 1 1 1 Kt I I 1 1 I 11 1 IST LI EI EI *SPOKE4D7D,66: FOKEAQTI, 66 
S18 COLOR1,3,3:CHAR1,11,6,"W- I * 1 in +8" :COLOR1,6,3 
528 CHAR1, 2 „Z,"LIVES 3"32CHAR1,29,2,"SCORE B"3COLORI,1 - 


538 RETURN 
535 IFXX=1THENGOTOS72: ELSESP=B: GOSUB260: GOTO220 
548 DATA162,2,189,8,208,157,2,48,189,0,299,157,0,49,202,208,241,76 
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programme 


618 
YA 
638 
640 
658 
[==] 


558 
Som 
70 
598 
5398 
sub 


DATA17,58,52,89, 144,44 ,66, 130 
DATA16,56,48,89,148,58,68, 132 
DATAD, 247,247 ,247 ,0,254 „254 ,254 
DATA255,0,255,8,255,8,255,8 
DATA&Q,66,153,161,161,153,66,&0 
DATAG,0,34,128,170,34,34,34 





“, 


2 : 





























ter Beweis zu stellen. 











Abtippen - Speichern - Mit „RUN“ starten. 
Nachdem dies erfolgt ist, den eigenen Vor- 
namen und die Namen der Mitspieler (ma- 
ximal! 9) eingeben. Die Mitspieler werden 
vom Computer simuliert. Anschließend 
erscheinen die Standardwerte, die, falls 
erwünscht {mit „J“ beantworten), gleich 
angezeigt werden. 

Möchte man die Werte selbst bestimmen 


122 



























































18 REM Bee BE RRRREERNERN 

20 REM * FOKER * .. 

3@ REM * # en: 

AB REM * WRITTEN 1986 * 140 

SB REM * BY * 150 

68 REM * THORSTEN FIEN * 2 
en 2 4418,674,52 
en REM * z118 BAD BEVENSEN * 

32 REM KEHIRKKHTE NH HH HR N 





178 
zZu2 
2i2 
22 

230 
248 
250 
268 





PRINT"SMOECHTEST DU DIE MITSFIELER SELBST 
GETYYS$: IFYY$=""THENZ1B 

IFYYE<C>"J"THENSSO 

FORYY=1TOAN: FRINT"RNÄAME DES"3YY:". MITSPIELERS" 
INPUT "TERBERRERBEDDRFERbEIR ER" NELYY) 
IFLENN$ (YY) I >STHENN$ (YYI=SLEFTFINEEYYI,M+"." 
IFLENENECYYIISSTHENNFEYVISNEFLYYDI+" ":60T0252 




















Wenn „Bluffen“ Ihre Stärke ist, 
sind Sie hier richtig! 


DATAB,2,6,6,6,38,62,28 
DATAB,120,124,102,124,120,96,96 
DATAQ,66,102,102,102,102,126,68 
DATA@,126,102,102,126,126,182,1@2 
DATAD,66,102,126,102,1902,102,102 
DATAB,102,116,118,118,102,102,102 


' Wer kennt Sie nicht, die berühmte Filmszene aus 
.so manchem Westernklassiker: Ein verräucherter 
Saloon, ein großer runder Tisch, der mit den unter- 
schiedlichsten Spielertypen besetzt und von zahlrei- 
chen Kibitzen umlagert ist. 
Setzen Sie Ihr Pokerface auf und nehmen Sie an dieser 
Tischrunde zu einer Partie Poker Platz. Unser Programm- 
beitrag bietet Ihnen die Möglichkeit, Ihre Kartenkünste un- 


(S.G.) 


(‚N“ eingeben), erscheinen die Kriterien 
und die entsprechenden Zahlen müssen 
nun eingegeben werden. Ist die Eingabe 
abgeschlossen, können Sie auf dem 
Screen das Spielbild und eine Tabelle, die 
alle wichtigen Informationen enthält, er- 
kennen. Poker wird nach den bekannten 
Regeln gespielt. Also auf geht's nach dem 
Motto „Gut geblufft ist halb gewonnen!“ 


COLOR @,1:C0LOR 4,1 

FORI=1T09: READA: NEXT 

DIMN$ (9) :FORI=1T09: READN& (I) :NEXT 
FORI=1T08: J=INT (RND (1)#(9-D)+I+1 
NE=NECDIENKODI=NECHIENEOTI=NEENEXT 
DATA24ES, 1885 ,47E4 ,68E3 ,23E3,9514, 


158 INFUT"LERHALLO, WIE HEISST DU DENN"SN#F 
178 IFLEN{NF$) >STHENNF=LEFTE (NE, Ar" " 
182 IFLEN (N$I<STHENNS=ENF+" ":GOT0182 


INFUT"EWIE VIELE MITSPIELER BRAUCHST DU" z AN: AL=AN+1: IFANZ LORANFFTHENI FB 
AUSWAEHLEN?”" 


> 
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272 
ze 
290 
Bir] 
512 
zz 


a3 
Re} 


348 
352 


378 


440 
450 
462 
470 
492 
470 
Ssa8 
S18 
328 
338 
S42 
33 
Sa 
374 
s88 
572 
528 
Sl 
822 


= 
30 


650 
660 
678 
688 
4698 
zau 
710 
720 
730 
740 
752 
760 
77a 
780 
798 
800 
=p1) 
820 
850 

‘840 
eo) 
858 
BU 
870 
298 
890 
720 


programme 


DATAJULIA,FRITZ,SILKE,"LENE ",„"ERIE ",PETER,"TINE ","HANS " "JOHN " 
:DIMAZ (AN) „BA AN) „EX AN) „EX AN) „FZLAN) „KZCAN,A) „LZ(4) „WECAN) 
PRINT"RSTANDARTWERTE 7" 


GETYY&: IFYYF=""THEN31B 

IFYYE£: >"J"THEN3IB >88 GOT0448 

AV=20220: GR=188:K0=50:LI=1000 >78 INPUT"TOISANFANGSVERMDEGEN: "zAV 
PRINT"LIOIEANFANGSVERMOEGEN: Z008 +" 400 INFUT"WERUNDEINSATZ «= "GR 
FRINT"BEGRUNDEINSATZ : 398 +" 418 INFUT"BEOSTEN FRO KARTE: ";KO 
FRINT"EKOSTEN FRO EARTE: sg +" 420 INFUT"BLIMIT => ":LI 
PFRINT"ELIMIT : 1a22 +" 458 KO=INT (KO) :LI=INT(LI) 

AV=INT AV} GR=INT (GR) 2 IFAVZLIORL I=2GRORGR<BORKOL.IORKO<SBORAV 32767 /A1 THENAGB 


GDTO478 
FRINT"BFALSCHE EINGABE! NOCHMAL EINGEBEN!" 

IFTI-T<X&BTHEN470: NEXT 

PRINT"OILIIIIITN": 6070390 

FORI=BOTOAN: AZ CII=AVENEXT:GESINT (RNDC-RNDI-1/TDI) AL) 

L$=" "zLESL$4L SH LEHE" LES ER H LEHE OO 

HI=GR+ (SER (AV&LI)-BR) /10 

DEFFNC (X) =X-5# INT (X75) 

DEFFNA(X)=INT (X/4) 

DEFFNB (X) =X-4&FNA 0X) 

DEFFNI CK) =X+A1R (X>AND 

DEFFNF(X)=(I-X=2}0R(I-X=3) 

S$="":FORI=QTOS1:SF=SF+HCHRE (I) =NEXT 

FORI=BTOAN: CAD SMEAZLD=AZLNI-GR: BZ (T) =GR: NEXT:CH (O}=1:PO=AIHGR 
IFAZ(BISOTHEN211@ 

IFAX (1) <BANDAN=1THENZ13Q 

FORJ=1TOAN: IFAZ (II =>OTHENNEXT:GOTOAA0 

FO=PO+AZ(J) :PRINTN$ (J)" SCHEIDET AUS. 

IFJ< >ANTHENFRINT"S] UND TAUSCHT SEINEN FLATZ MIT "N&(AN) 

AZUTI=SAZ AN) EAL=ANZANSAN-1=2NSLII=NE (AL) 

G0TO6AA 

FORI=@TOAN: FORI=BTO4: BOSURZ14B: KA. (4, DI =ArNEXT:NEXT 

G0SUB152@: FRINT"L 

GOSUB1S6B: FORISGE+1TOGE+A1: Q=FNJ (TI EFRINTLE : IFGTHENB40 

INFUT"SIEWIE VIELE KARTEN WILLST DU INERSERNEBERT" ; A 
YY=A:A=ABS (A) 
IFA<BORA>ATHENGIR 

IFLEN (S$) <ATHENFRINT"ERISES SIND NUR NOCH"LEN(S$) "KARTEN IM STOCK. ":GOT0698 
IFA=BTHEN99D 

IFAZ{B) <KOXATHENPRINT"ERSEDAZU HAST DU NICHT MEHR GENUG GELD. ":60T0698 
FORI=1TOA 

IFYYZBTHENLZ(I-1)=1 

IFYY<@THENBAZ 

PRINTL$,I 

INPUT"ERNUMMER DERERITEN ALTEN KARTE INBERERNANRMI" ;L/CI-1) 
LACI-1)=LA0I-1)-1: IFLXCI-1) SOORLYCI-1) >4THEN79Q 
IFI>1THENFORK=@TOI-2: IFLZCI-1)=LZ (K) THENZIB 

IFI>1THENNEXT 

NEXT1:G0T0988 

T=VAL (WEOI I EA=(ISDI 28 0 1EA) -(II2I- (I=W) 3 IFA>ZTHENASA-1-INT CRND (1) * (Q+1) 70-1 


F=B: IFEO#A>AZ (O3 THENA=INT (AZ IND /EDI: :P=-1 

IFLEN {S$) <ATHENASLEN (SF): P=—1 

IFA=BDTHENFSR ” 
FORE=RTOA-1:L%4 CE) =K3 NEXT “ 
IFFACB)=-1THENFSBR 

IFIZ1ORFTHENA=1: [2 (BI) =SF% (0): SOTOFAR 


Compute mit - Sonderheft - 1/86 Ä Compube mir 13 








programme 


18 IFRND (1)* (1. 5+SOR (O#AN) #47 (KA (QO,4) +1) I > THENA=S1:LA(DISFACO) 

928 GOTO74B j 

334 IFEZ(Q}I=-1THENFER 

949 IEPORI<LTHENA=1:1L% (2) =E% (9) :G0T0768 

950. IFRND (1) #1. Z+SOR (O*AN) #3/ (KZ(Q,4)+1) PL THENA=1:LA(DISER (ON 

göB FRINTLENEIO)" NIMMT SICH"A"NEUE KARTE" 3: IFA=1THENFRINT: GOTOF882 

778 PRINT"N” ö 

738 IFATHENAZ (O) =A% (0) -KO*A: PO=PO+KO*A: FORI=BTOA-1: GOSUBFI140: KA (Q,LACTI I =ASNEXT 


978 T=Tl £ 

1B@8 IFTI-TS6BTHENI1OBO aaa ET II OENB 22 

a a oeleiesg 1950 BI=ENJ(RBI+1): IFAZ=1THENI12S® 

N as AlzBiehr 1060 IFMA=B% (BI) ANDMA>GRTHEN129Q 
: : a 187@ IFCH (BI) >LTHEN125B 


1050 GOSUB1S60: PRINTL$GF:ET=TI 1BBD G$="DU SETZST":PRINTL$; : IFEITHENI 108 


1898 INFUT"ERWIEVIEL # SETZT DU INaSEREzam"; EI: 50701198 
1109 GF=N#F(RI) +" SETZT" =RESTORE: FORF=-1TOVAL (WE (BIN) = N=Z:READZ:NEXT 
1110 NEN (N-Z) # (ASC (MIDE (W$& (BI) „2) )-70) /26: 0=LOB (14N) EN=LOGCI+RNDALI N) 
1120 Z=14.7-LOG (Al+1) *MA/HI: IFZZBTHENZ=B 

1138 EI=MA-B%A (RI): IFZFOTHENI1188 

1148 IFZ>O-1THENIFRND (1) * (1+2/BI)<BG0OTOL1170 

1150 TEBZ (BI) =SORRND (1). QLTHENIFZ »"NTHENO=N: EI=EI+FO#*2/ (A1*S) :60T01188 
1160 IFEI«RND (1) #A1*1O/FO-1<{28*VAL (WE CBI)) THEN1190 

1178 EI=2:60T01170 

1180 EI=EI+i+RNDt1)*1Z-Q)*HI/SOR (AL) 

1190 EI=INT<EI): IFEI>AZ(BI}THENEI=AZLIBTD 

1208 IFEI>LI+MA-B% (BI) THENEI=LI+MA-BA (BI) 

ir1@ IFEI<MA-B%Z (BI}THENEI=®O 
‚122 G$=BF+STRF (EI) :BF=BH+"F ZUSAETZLICH." 

1230 IFEI=BTHENCHA (BI}=2: AZ=AZ-1:60T01250 

1248 EZ CBL)=BZA(BII+EI:AZ BI) SAX BI) -EI:PFO=FO+EI: MA=B% (BI) :G0TO1050 
1258 FÜORI=BTOAN: IFCH CI) FL THENNEXT 

1268 CI. (D)=S:AXtDI=AACTI +HFO: I=SANSNEXT 

17270 GOSUBI1FAU 

i28R GE=FNJ tGE+1}:60T0570 

1238 FORI=BTOAN: IFC4H LI =BTHENCA (DI =1 

1308 NEXT: GOSUB13&B: T=TI 

1312 WE="":Kk=9: FORI=OTOAN 

132 IFCH II CZTHENEZ (I) =2: IFWE (TI) PWETHENWE=WECDI CZK) =2: CH (DI=3:E=1 
13308 NEXT:AX U) SAKIEI+FD j 

1242 IFABS<TI-TI<ZBOBRANDFEER (151) =255THEN1340 

1358 GOTO1272 - 

12762 PRINT"E", „"ERRFOKEREEN" : IFGE>@THENFRINTNE (GE) GIET DIE KARTEN. 
1378 IFGE=BTHENPRINT"DU MUESSTEST GEBEN — ICH GEBE FUER DICH.": 

13820 FRINT"BSFIELER KARTEN"," EINSATZ VERMOEGEN 

1398 FRINT" -—— 771777, 

1400 FORI=BTOAN: PRINT" j"3 3 IFJTHENPRINTN# (J) 5 :G0T01420 

14120 FRINTN#; 

1429 PRINT" |": 0NC% (3) BOT01470, 1458, 145@: PRINTSPC (15) 5 G0T01488 

1438 PRINT"E -AUFGEGEBEN- ":G601701489 

1440 PRINT" -AUFGEBEBEN- "2:G0T01488 

1458 FRINT"B #* GEWONNEN * B"::60T01498 

1440 FRINT"E #* GEWONNEN * "::G0T0148% 

1478 FORI=BTD4: A=KA (J, I) :5OSUB2108: PRINT"W"AFUM "s2NEXT 


1480 FRINT" ["3:AF=STRE (BEA IDI I EAF=" "4+A$: PRINTRIGHTS (A&,6) 3 :PRINT" 1"3 :AF=STR#( 
AAN) . 
i4978 AF=" n+A&2 PRINTRIGHTEtAF,B8) 5 PRINT" | 


1508 NEXTISFRINTE ——— — — —  ——— “ 

1518 FRINT"AUF DEM TISCH LIEGEN"FO"IE": RETURN 

1524 ORS=BTOANSFORI=@TO4zA=KA (I, II EK=FNA AI SL=I: IFI=BTHENIG20 
1538 FORH=OTOI-1 
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1540 
1558 
1568 
1570 
1588 
1590 
1608 
1618 
1628 
1650 
1648 
1658 
1660 
1670 


1588 K= 


1678 
1708 
1718 
1728 
1730 
1740 
1758 
1768 
1778 
1783 
1798 


programme 


M=L% CH) 3 IFL=IANDK<MTHENL=H 
IF (MAND15) -KTHENNEXT: GOTO1628 

K=M+16:L=H: N=H= FORH=HTOH+M/165L% {H) =K: IFK% (J,HISATHENL=L+1 

NEXT 

IFH=ITHEN1622 

P=L%(H) : IFP>KTHENL&2O 

0=K% (JH) = N=N+1=2L=L+13 FORB=HTONSTEP-1:64(J ,D)=EA I ,A-1) LAW) =L%0D-1) 

NEXT:KZ (9, W=0:L% (WM) =P:H=H+1:50T01582 

IFL=ITHEN1640 

FORH=I-1TOLSTEP-1:K% (J,H+1)=K41J, HI 2LA CH+1)=L% CH) ENEXTEKZ (I, L)=A 

LA{L)=K:NEXTI 

I=INT{LA(4) /16) :K=INT (LZ (3-1) 716) : IFI=SANDK% (9,0) =A7ANDKZ (9,4) =S1THENK=1 
=4: IFITHEN1690 

M=4: FORL=QOT04:0=L% (M) -LZ (L} :M=L: IFO-AANDOS >-FTHENNEXT: GOTD1698 

1:Q=L-1:1L=4:NEXT: IFO<BTHEND=4 

WE=MIDE ("04125679" „I#2+K4+1,1) : FL=-1: IFITHEN1782 

0=-1:H=0:M=FNE(KA(3,0)) 

FORL=1T04: A=FNB (K% (J,L)) : IFA=MTHENO=M: ONFL+160T01770:60T01758 
IFNOTHTHENIFA-HOR (A=HANDO=M) THEN177@ 

IFA=HTHENFL=2: O=H: GOT01758 

H=A:FL=L 

NEXT: IFH=-1 THENWS=MIDE "58" „K+l,1) 

G0T0178®8 

FL=-1 

FRI =FL: IFWEH"O"TANDWES<"S"THENIBOR 

FORG=4TOBSTEF-1: WESWS+CHRE (FNA (KA (JB) I +70) : NEXT WFSWEHCHRFFNB (K% (J,4)) +48 


I}; GOTO182B 


1820 WE=SWEHCHRE {FNACKZ CT, I+70) 2 IFVAL WEI SP THENWSSUSHCHRE CFNA (KA (J, 2) ) +65) 

1810 WE=WE+HCHRE (FNB (K% (J,0))+48) 

1870 EX (J)=-1:0NVAL (WEI +1GOTO185R, 1998: G0T0?B9ID 

18328 M=3:N=M; P=-1:H=F:a=Psl=.% 14) -15:FORI=BTO4:K=L%A TI : A=K-Li:l=K 

1840 ONAGOTO195B,1910 

1858 IFM=ZANDN=1THEN?DFO 1982 P=1I:50T01968 

1850 M=M-1: IFM=-BTHEN?OID 1718 N=N-1: IFN=BTHEN?OFO 

1870 IFMSZTHENIFFNP (P} THEN?OFO 19729 IFN=2THENH=1:G0T01948 

1888 IFM<TPTHENP=SF-4% (4=I-P) =:GOTO198 1738 IFM=1THEN?BFQ 

18972 IFN=1THENF=O+ (8-H) #FNF (HI :GOTOL1SSM 1949 Q=I: IFM=STHEN1F6Q 

1958 M=1:0=FNFi(P}ANDABS {F-H} =2: P=P- (F+2=HORF-1=H) # (H-P) - CI-P)%* (P+3=H) = IFOTHEN2DY 
2 

1762 NEXT: B=M=ZANDN=3: IFOAND {H=P- 1DRH=F+4) THENP=H 

1772 IFATHENI=H: IFFNP (CP) ANDF=1THENP=B 

1988 EXT =P:G0OTOrRFE 

1990 R=LX (3) —-1& 

BOB M=2:P=-1:0=F:0=PFr:N=ML=L2 (29-13: FORI=SBTO2: K=L%A I}: A=K-L: ONAGOTOPROR , 2040 
2812 IFA=3AND (R=L+10ORR=K-10RR=K+1FORR=L-12) THENN=N-1: P=B: ONSGEN (N) +1G0T02090 „2048 
22280 M=M-1:0=K:l=L-15%# (Li) 2 IFM=9O50OTO2AF8 

038 GOTO2B68 

28408 IFL+1=RORL+14=RTHENF=9: 50707842 

2058 N=N-1: IFN=BTHENIDFGO 

2068 L=K: NEXT: IFNOTFTHEN?OS® 

2070 FORI=BTOIZFSTEPIS: FORK=1TON: IFRZ »0-E+ IANDR=Z "O+K-ITHENNEXT: NEXT: GOTO2090 

2088 EA(J)I=3 

ZEIG WELTI=SWESNEXTI: RETURN 

Z1E0 At=MIDE ("494+"  FNB(A)+L,1): BE=MIDE CO" IF4SS7BFZBDKA" „FNA(AW+1, 1) : AF=AFH+BS:RET 
URN 

2118 PRINT"DU BIST PLEITE! > 

178 FRINT"TSCHUESS"SEND > 

2132 PRINT"WIJETZT HABE ICH KEIN GELD MEHR. ":G0T02120 

2148 A=LEN (S#} = H=RND (1) #A: AF=MIDSE (SF ,H+1) 25#=MIDS (SF, 1,H) +MIDFAF, DI EASASCLAF) ER 
ETURN 
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programme 
Turmspringen - Turmspringen - Turmspringen - Turmspringen 








Messen Sie sich als Turmspringer im olympischen 
Wettkampf mit Ihren Gegnern! 


Eine weitere Disziplin in der Palette der olympischen 
Sportarten stellt das C16-Programm „TIURMSPRINGEN“ 
dar. Stürzen Sie sich von der obersten Plattform des 
Sprungturmes und beeindrucken Sie die Punktrichter 
durch gekonnte Drehungen und wasserspritzerloses 
Eintauchen. 


Nach dem Start mit „RUN“ erscheint das Titelbild inclusive Lauf- 
schrift. Anschließend bitte die Space-Taste drücken, Anzahl der 
Spieler (1 - 8), Namen und Startberechtigung für das jeweilige 
Land eingeben. Jetzt wird auf dem Screen die Sportarena sichtbar 
und zusätzlich am linken oberen Bildschirmrand der Name des 
aktuellen Springers angezeigt. 

Sie, als wagemutiger Turmspringer befinden sich auf der ober- 
sten Plattform des Sprungturmes und konzentrieren sich auf den 
ersten Durchgang, in dem ein „Greifacher Auerbachsalto“ gefor- 
dert ist. 

Durch Betätigen des Feuerknopfes heben Sie vom Brett ab. In der 
Flugphase kann der Sprung per J oystick folgendermaßen beein- 


flußt werden: Zug: 
Joystick nach links - langsame Drehung vorwärts 
Joystick nach unten - schnelle Drehung rückwärts 
Joystick nach rechts - schnelle Drehung rückwärts 


Loslassen des Joysticks - Streckung des Springers 


Besonders wichtig für die Qualität des Eintauchen ins Wasser und die Anzahl der | Siemehrals 900 Punkte bei einem Sprung 
Sprunges ist das möglichst senkrechte Drehungen. Ein Internationales Punktrich- erreichen, belohnt Sie die Zuschauerku- 
tergremium, das aus 10 | lisse mit tosendem Beifall. Der gesamie 


= GOTRS@ | Personen besteht, bewertet | Wettkampf setzt sich aus fünf Durchgän- 
=. none cn die jeweilige sportliche Lei- | gen zusammen. 

30: pr BY % stung. Es können maximal Am Ende der Veranstaltung folgt dann die 
48 : * RALF ADLING „ 1000 Punkte pro Durch- Siegerehrung und die Medaillenvertei- 
5QB : *  LINGENER STRASSE 64 + gang erzielt werden. Sollten | lung. 

60 ; * 4576 BERGE * 

zu: EEE TH HN NINE 


82 POKES& ‚47: CLR: I=6528@: B=33@8: VOLB: COLORB, 1,8: COLORS, 13 POKEI+18,PEEK(I+18) AND2 


98 FÜKEI+19,PEEK(I+19) ANDSOR4B: FORT=832T0949: READA: POKET „A: NEXT: SYS852: DIMPG (11) 
188 FORI=129U8T013180:READA: IFA>-1THENPOKEI, A: NEXT: RESTORE65535: Ru=B : 
11@8 FORI-325121032537:READA: POKEI „AsNEXT . 

1298 FORI=1T01@:READJI$ (I) SREADN$(TIENAS(TI =J$ (1): NEXT: GDSUB&EIB 

138 B=3132:D=2:F=@: 6=9:H=48 
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142 
158 
142 
170 
180 
198 
228 
218 
228 
. 250 


408 
418 
420 
432 
448 


460 


3 
548 
xT 
350 
son 
. 3782 
: 588 
>70 
Hua 
610 


690 
. 708 
' 7ı@ 
720 
' 738 
748 
758 
760 
770 
720 
| 798 
822 
' 810 
' 828 
: 830° 


S 


Compute 


Programme 


AULI=BS:A(2)=86: AZ) =872A(4)=BB:A(DI=BIEA (HI) =D: ATI =F1:ALB)=92 
E(1)=95:0(2)=93:0(3)=94:6(4)=94:C (5) =95:C (4) =95:C0(7)=96:C (9) =96 
REM: FORI=3149 T03132STEP-1 :POKEI,181:POKEI , 192:SOUND1,1,19: POKEI ,32:NEXT 







REM 
REM ABSPRUNG 
REM 
POKES132 ,85: B=3132 240 POKEB,32:B=B-92 
IFJOY (1) 3127 THEN23B: ELSESYS32512 254 REM 
SUlHZIN 268 REM HAUPTPROGRAMM 
FORI=14T018: CHAR1,6,1," "2NEXT 270 REM 
288 IFFEEK (B) =88ANDB< 3758 THENH=H-Q@. 5: PU=PU+2 
290 SYS32512 
Za@ B=B+H 
318 IFJOY(1)=7THEND=D+1: PU=PU+1. 5: IFD=9THEND=1 : 5OTOSSO 
328 IFJOYt1)=STHEND=D-2: PU=PU+2: IFD< 1 THEND=8: 6010359 
325 IFJDY(1)=STHEND=D+2: PU=PU+2: IFD’BTHEND=2:G60T0350 
3532 POKEB,A(D):SYS32512 
348 GOTOSSGR 
35@ POKEB,C(D) , 
368 POKEB-1824,87: SYS32512: IFB>3B4BTHENPOKEB-H, 64: ELSEPOKEB-H,32 
378 H=48: IFB>387BTHENSID 
388 IFB<4BB0G0T0288 
370 SOUNDS, 708,10: SOUNDS, 1998 ,2:SODUND3, 968,4 
REM 478 SCNELR: GOSUB1471:FORI=1T01@ 
REM AUSWERTUNG 488 PUII=PU/OHCINTIRND(LI*Z)I): IFPULCI) LOTHENPU CI) =10 
REM 
IFPEEK (B) =85STHENPU=PU+35 498 F{iCOI=P(CD)+INT(PUCT)) 


IFPEEK (B) =89 THENPU=PU+45 
IFPEEK (B) =BBORPEEK (B) =IBTHENPU=PU+2D 
IFPEEK (B) =860RPEEK {B}=92THENPU=PU+1Q 


su@ NEXT:PU=2 
S5ıB CHAR1,9,18, "RESULT: ":PRINTP (CO) 
S22 CHAR1,9,17, "MEDIUM: ":PRINTP (CO) 7/10 


COLOR1 ,7,4:CHAR1,9,3, "dl" :PRINTN$(COI" "NA$ (CO) "MR" :COLOR1,7,2 


FORIS1TOIB:CHAR1,14, 14 ,J$ 1) =PRINTINT {PULCIY) =PG{COI=PS CO) +P (CO) :PULCTI=B:NE 
IFP (CO) »F7BTHENGOSUBS4QD 62@ REM 

P{CO)=8 658 B=3132:D=2:F=0: G=9: H=40 
SYS32517:6GETA$: IFAS=" "THEN6AB 649 CO=C0+1: IFCO=C+HLTHEN120G 
60TU578 650 GOSUBFIB:GOTOIHR 

FORI=1T01908 5668 REM 

REM 67@ REM INTRO 


REM SPIELERWECHSEL 688 REM 


SENCLR: COLOR4,1:CDLORQ, 1,2: COLOR „8,7: CHAR1 9,3, 7841-1 ——-1- | 
COLOR1,2,4:CHAR1 „14,5, "PRESENTSEE 

COLOR1,3, 3: CHAR1,5,8,"— a 8 [-a 8 — [fen 
EOLOR1,3, 45 CHAR1,5, 9," - - - - - - _-.-. -. 
COLOR1,3,535CHAR1,5, 10, '— _ - — - —_ --. __.o 
COLOR1,3,62CHAR1,5,11,"- - -- - - __--— 
COLOR1,SSZECHARI ASLIE"L  LL L L —[LIILA "zCOLORI,9,7 
EOLOR1,7,2:2CHAR1,9,15,"—8 - - - - - - T—_" 

COLOR1,7,32 CHAR1,9,16,"- - - - - - ee 

COLOR1,7,4:CHAR1,9,17,"- - - - - — — en 7 
COLOR1 „7,5: CHAR1,9,18,"- - - - - - - - — - n . 

COLORt ,7,62CHAR1,9,19,"—_ - I - - - I" 

REM 

FÜRI= 1TOZISTEP22: CHARi 25 I q VILIFTILISILLZIESSISLTLS IF ISLITLLISSTLEEIISEL IS "ENEXT 
FORI=2T023:  CHAR1,2,1,"-"sCHAR1,38, 1," ":NEXT:GOTOBSO 
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programme 


840 
858 
842 
861 
842 
863 
867 
970 
898 
998 
788 
910 
928 
9738 
348 
958 
768 
978 


: 9780 


18 


778 


FORI=1T080: SUUND3, INT (RND (1) #99) +900, INT (RND (1) #4) :5Y532512 :NEXTSRETURN 
ws=" JOYSTICK PORT 1 PRESS SPACE AND REACH OUT FOR GOLD!! 


RESTORE 1999: FORI=1T017: READW: SOUND1 „W, 15: SOUNDZ2 ,W-7,15:5Y532512:NEXT 
GETA$: IFA$=" "THENSTO 

SOUNDZ ‚830,5: SOUND2,834 ,5:8=S5+1: IFS=&@THENS=1 
CHAR1,12,21,"":PRINTMID$(W$,5,1@) 

GOT0B61 

GOSUB1130 

REM 

REM SPIELFELD 

REM 

SENCLR=: COLOR1 ,2:COLORB,1,1:FORI=15T018:COLOR1,1@, INT (RND(1)%*7+1) 
CHAR1,B,I,"NNÄÄANN SAASSANSANSENEXTECOLOR1,2,6 
COLOR1 „2,3: FORI=12T014: CHAR1,8,1,""":CHAR1,2,1,"""2CHAR1,37, 1,""ENEXT 
COLOR1,6,6:CHARt 5,1 „12,"_"SCHARI, 3,12," _":CHAR1,38,12,"_" 
CHAR1,8,19," " 

COLOR1,2,5: CHAR1,0,28,"——_ |— 
COLOR1,2,42  CHAR1,B,21,"—_ 1 
CHAR1,0,22," " 
COLOR1,7,32CHAR1 33,21 2 "HIHI II HIFI SSAISIEN 











10808 CHAR1,4,20, "HH JH ILL FIN 
1819 COLORI,3,4: FORI=3T02B: CHAR1 , 25, 1, "#775 /7£ 55/1 "NEXT CHAR1 28,2," ASS FFFLES 


1815 


CHAR1,24,1," II 1 IR IE ® 


1028 CHAR1,8,8,"d":PRINTN$(COI" "3NAFCCO) "EP 


1858 COLOR1,3,1:FORI=STO19:CHAR1,24,1,"—":NEXT 
19848 COLOR1,8,72 CHAR1,6, 14," m——— " 
1058 CHAR1,6,15, "WE 17 m" 1078 RETURN 
1060 CHAR1,6,16,"-18 m." 1182 REM 
19872 CHAR1,6,17,"- I-1-# " i1l11@ REM EINGABE DER SPIELER 
1888 CHAR1 ,6, 18," 1128 REM 
1130 SCNELR: CO=1:CHAR1,5,5, "HOW MANY CONTESTANTS (1-8) "z INPUTC:S=B 
1148 IFC>BORC<LTHEN113B 
1150 SCNELR:S=S+1 
11640 CHAR1,5,5,"CONTESTANT"SPRINTS:CHAR1,17,5," "3 INPUTNE(S) :CHAR1,5,7, "NATION: ® 
1172 GOSUB1448 :PG(S)=® 
1190 IFS<{CTHEN1148 
1190 RETURN 1221 REM 
1191 REM 1232 REM MEDAILLIENVERTEILUNG 
1192 REM ZWISCHENSTAND I 1233 REM 
1193 REM 1248 COLOR1,8,7:FORU=1T018 
1208 CO=1 1 RU=RU+: IFRU=STHEN1230 1241 FORI=1T018: IFFG (U) =PG CI) THENPFG (D=PECD-1 
1218 GOSUB1378 1242 NEXT:NEXT 
1228 GOT0658 1249 FORU=1T018 
1230 GOSUB1370 1258 FORI=1T012: IFPG (U) >PG (I) THENPO (W)=PO (W +1 
1262 IFFOU)=FTHENCHAR1,2,519,"GOLD - ":PRINTNAS(D" "NEW :PG(U)=R:PO CU) =B:60T01 
280 
1272 NEXT:NEXT 
| 1288 FORU=1T010:PO(U)=B 
| 1290 FORI=1T01@: TFPG (U) >PECIITHENPO «UI =POKU) +: IFPO (LI) =FTHENPG (U) =2: GOTO131@ 
1208 NEXT=NEXT 
13198 COLOR1,2,3:CHAR1,2,20,"SILBE ":PRINTNAS (U) " "N$ CL) :PG (U) = 
1328 FORU=1T010:PO(U)=B 
1330 FORI=1T019: IFPG (U) >PGEI) THENPD (IN =PO (WI) +1: IFPO (U) =9THEN1358 
1348 NEXT:NEXT 
1359 COLOR1,12,5:CHAR1,2,21,"BRONZE "zPRINTNA$(U)" "NF(W 
1368 CHAR1 „23,2, "AGAIN (J/N) ": INPUTA$: IFAF="N +" THENEND: ELSERUN 
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1561 REM 
1262 REM ZWISCHENSTAND II 
13653 REM 
1370 SENELR: COLOR1 ,2: CHAR1,4,2, "RROUND" = PRINTRU" EM": COLOF1,7,7:G0SUB1471 
1288 FORI=C+1T012:M=INT {RND (1)#1200+130) = IFM>LEBBTHENM=1DUU 
1381 FPGC(D=PG(CII+MENEXT 
1398 FORI=1T012:CHAR1 ,3, 145, NAF {II SCHAR1,19,1+5,NF{I) :CHAR1,38, I+5, "8": PRINTPG {I 
} 
1402 NEXTI u 1a50 RETURN 
.. een THEN2J3G 1432 REM ZWISCHENSTAND III 
; 14535 REM 
| 1448 COLORi ,6&,5:FORX=1TD19:CHAR1,6,11+X,J#£ (X) ECHAR1,16,X+11,"":PRINTX=SNEXT 
1458 INPUTN:COLOR1,2 
1458 IFNZ1ORN>1BTHEN1458 
1470 NAF(SI=JF (N) RETURN 
1471 CHARi > i P ["4] y MIA IFA ESEL EA EEE II . FORI =1T075: CHAR1 4 1 Pr I 4 se ya 
1472 CHAR1,38, 1," "SNEXTECHAR1 , 1,23, "222228 I IT ISIF ISIS IL ILLISIFSS FI IERET 
URN 
1479 REM 
1488 REM ZEICHENSATZDATA’S 
1492 REM i 
1520 DATA162,0,1987,0,208,157,0,48,189,2,209,157,0,49,202,208,241,96 
1510 DATAZSS , 295,259, 239,259, 2597, 255,255 1758 DATA16,16,24,16,16,16,16,16 
1528 DATAD,126,172,192,192,192,172,126 17402 DATA128,64,48,164,8,4,2,1 
1558 DATAB,„127,1953,193,193,193,193,127 1778 DATAB,8,0,32,255,0,2,8 
15420 DATAUB, 76, Fü, Fü, Fa, Fa, 75,127 17828 DATA1,2,4,8,48,32,64,128 
15952G DATA 90,127,76,76,127,3,3,127 17970 DATA16,16,16,16,16,48,16,16 
15640 DATAQ,97,97,97,97 397,97 ,127 1808 DATA128,64,32,16,12,4,2,1 
1578 DATAQ,498,498,498,48,498,48,48 1812 DATAB,9,2,4,255,8,0,8 
1588 DATAB,127,97,97,127,96, 96,96 1922 DATA1,2,12,8,16,32,64,128 
1570 DATAQ,„97,77,97,127,12,12,12 1950 REM ##%# DREHER snraaxaraan* 
| 1608 DATAB,127,181,181,191,97,97,977 1848 DATA28,34,193,65,65,178,9,2 
1819 DATA73,146,36,73,146,36, 73,145 1950 DATAS6,64,128,178,128,64,56,36 
1624 DATA48,72,135,@,12,18,225,8 1860 DATAB,2B,2,132,120,131,68,56 
1634 DATA255,128,183,167,167,167,128, 1870 DATA4,28,2,1,1,1,2,28 
PSS:REM REKLAME 1882 DATA136,32,138,144,96,68,28,48 
1648 DATAB,17,149,255,0,66,82,255 1970 DATA249,15,239,224,251,508,215,239 
1658 DATA238,9,119,90,255,0,238,8 1908 DATA3,3,3,3,3,3,3,3 
16563 REM##*# ECKZEICHEN KH 1718 DATA254,53,18,1,2,56,33,127 
1670 DATA1,3,7,15,31,63,127,255 1920 DATA16,248,20,18,24,22,35,16 
1488 DATA255,127,63,31, 15, Zya,1 19340 DATA16,50,72,144,16,498,68,130 
1678 DATA128,192,224,248,248,252,253,255 1935 DATAB,0,255,145,145,145,145,145,145 
1702 DATA255,253,252,248,248,224,192,128 | 1940 DATA-i 
171Q0 REM *#** SPRUNGBRETT RXRXH%%% 1741 REM 
1728 DATA2SS,255,255,255,255,255,8,8 1942 REM DATA’S FUER MASCHINENSPR.UFRO 
1730 DATA134,136,136,248,136,136,136,248 | 1943 REM 
1749 REM HH JUMPERRREHHHEN ER 1752 DATA110,89,50,119,92,50,234 
1968 DATA119,55,51,118,35,51,112,37,51,112,32,51,118,34,51,110,39,51,96 
17646 REM 
1967 REM KONKURRENZ & LIEDDATAS ' 
1968 REM . 
19708 DATAUSA „HUGHINS „URS ‚WASSILY ,FRG,KUNZE ‚GDR,LEISTNER, JAP „MATAKONE,GB. „WALKER 
1788 DATAFRA,GIRAUD,ITA,DILETTI,IRE,CRUWISH, AUS „SEMMERER 
179@ DATA118,7,118,118,118,169,118,262,169,345,262,118,162,118,7,162,118,7,7 
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programme 
Aus Spaß wird sehr leicht Ernst! 


Diese Erfahrung können Sie mit Hilfe des folgenden Programmes selbst sammeln.Eshandelt 
sich hierbei nämlich zunächst um ein harmloses Manövrieren von tonnenschweren Kampf: 
‚maschinen, doch es wird schnell zu einer ernsten Auseinandersetzung mit Ihrem Gegner. 
















Sie und Ihr Freund haben sich in einem Labyrinth 
getroffen, um gemeinsam Panzerfahrübungen 
durchzuführen und dabei ihre Fahrkünste unter Be- 
weis zu stellen. Doch nach kurzer Zeit wird Ihrem 
Freund das ewige Kutschieren zu langweilig und er 
greift Sie an. Sie müssen nun durch geschickte 
Ausweichmanöver und schnelle Reaktionen diese 
Angriffe abwehren und Ihre Verteidigung einleiten. 


Mit Hilfe des Joysticks haben Sie die Möglichkeit, 
verschiedene Fahrtrichtungen einzuschlagen und 
Bomben oder Schüsse abzufeuern. 


Zu Anfang des Spieles besitzen Sie 500 
Kraftpunkte, die jedoch bei jedem Schuß 
(30 Kraftpunkte) und bei jeder Bombe 
(100 Kraftpunkte) verringert werden. Ihr 
Gegner hat verloren, wenn er einen Punk- 
testand von Null erreicht hat. 


Steuerung der Kampfmaschinen 


Panzer rechts 
Panzer links 
Panzer oben 


Joystick rechts 
Joystick links 
Joystick oben 


Feuertaste = Schuß (geht in Richtung des Panzerrohres) 
Joystick zurück + i a . 
Feuertaste = Bombe legen (Wird am Standpunkt des Panzers abgelegt; Ein neues Spiel kann mit der Feuer- 


taste gestartet werden. 


Arkuhrr 


Panzer rückt ein Feld in Richtung des Rohr- 
es. Auf diese Weise ist es auch möglich, 
Bomben und Mauern zu durchgehen). 


150 GOSUBZOOCO:ELR 
300 COLORO,1:COLOR4,1:C0L0OR1,2 370 R2=J0Y (2): IFRZFIZT7THENFLO 


=Z10 SCNELR: VOLB: X1=70: X2=70 380 Fi=D{Ri):ıFI=Fik2) 
320 GOSUBS9I0:COLORI,2 370 IFR1=3THENX1=70 
320 51=3300: S7=4000; PC=500: FD=-500: BC=70: BD=25 400 IFR1=7THENX1=71 
340 D{i1)=-40:0(H=1:D(NI=-1 410 IFR2=3THENX2=70 
z50 Fti}=-40:F(%=1:F{7)=-1 420 IFR2=7THENX7=71 
350 R1=J0Y (1): IFRIFLI7THENSSO 430° IFF1=0THENS7O 


440 SQUNDZ, 950,5: FOKES1 „32: IFFEEK {51+F1) =47 THENS1=51+P1:G0T0790 
420 IFFEEK{S1I+F1)S FSZTHENFI=0 

460 IFFZ=OTHEN49IO 

470 SOLNDS,900 „5: FOKESZ „32: IFFEEK {SZ+F2} =&7 THENSZ=SZH+F2: GOTO1040 
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480 
470 
Soo 
10 
S12 
320 
530 
So 
550 
560 
37/0 
580 
570 
[=191#) 
sion 
[-yle) 
30 
540 
ASO 
[=1>0] 
470 
&Bo 
590 
700 
710 
720 
730 
740 
759 
760 
770 
780 
730 
= 16/0) 
810 

E35 
820 
BIO 
851 
832 
370 
840 
850 


COLOR1,2,5:CHAR1,0,5,”1- I 
! 


programme 


IFPEEK {52+P2) < »I2THENP2=0 
IFFEEK (51440) =32ANDR1=0OTHENFOKES1 „32:51=51+40 
IFFEEK (52+40) =32ANDRE =0THENFOKESZ „32: 52=52+40 


51=51+P1:52=574+FP2: FOKES1 ,X1:POKES?,X2 
FOKES1-1024 ,98: POKES2-1074,113 


IFC1=1THENGTO 
IFCZ=1 THENFSO 


CHAR1,11,2, "WW" +STRE (PC) +" "SCHAR1,28,2, "WM" HSTREIPD) +" " 


CHAR1,11,4, "\B"+STRE (BC) +" "ICHAR1,28,4,"W+STRECBD) 4" " 
GOTOZ&O 
IFF2=0THEN499 
GOTOA7O 
u _[" 
ECHAR1,0,7, "11111 hi! lit) ii BEBEEEZERZEE 
CHAR1,0,8,"i- _ 
CHAR1,0,9," | _- [® 
COLORI „2,52 CHAR1 0,10, "II [II EI Iırıld EEEEREEEZEnE ERS 
CHAR1,0,11," 1 - -1-— -® 
CHAR1,O,12."|- _ og 
CHAR1,O,13, "1 81 EEE EI KTTETERERTRSE BEFTRE I" 
COLOR1 ,2,4:CHAR1,0,14," | I- = " 
CHAR1,0,15,"|- i- —| I " 
CHAR1,0,16,"|- iril ZEEZEREEEEEE un 
CHAR1,0,17,"1- 113 11 PIrIEHl " 
COLORI „2,5: CHAR1,0,18, | - | } — _j" 
CHAR1,O,19 "I 1 TE IH 11. Br. BEHR 
CHAR1 „0,20, "1 * 
CHAR1, „"i- I- - —| -" 
oe CHAR1,O,22E "LI EITEIT  BURIETET  BTIERIET LE EIIE® 
CHAR1,0,23,"|- pt 
CHARI 0,24," EEE ETETTTTTTERTTSSRUTTERTISTTTTEET EI" 
PRINT"E" 
FORI=1T04:COLOR1,3, 1: PRINT" "2NEXT 
FRINT'EEREERISFANZER 1:"PC’H ":FRINT"GEREPEERbPRRbEEPRBRBRBDBFANZER 2: "PD" ” 
PRINT ’ERERRESISBOMBEN 1: "BC" "PRINT" kERRELPERFFRERRRIERERPRBRIBUMEEN 2: "BD"J1 


RETURN 

IFR1=133ANDBC=ÖOTHENR1=0:G0T0370 

L1=FEEK (51+1) :L2=PEEK (51-1) 

IFR1=133AND ( (X1=70AND (L1= =7OORLI=71) )OR(X1=71AND L2= =7OORL2=71) )  THENR1=0: GoTa 


IFR1=133THENFOKES1 ‚657: SOUND1 „700,2: 50UNDi ‚H00,2:50UND1 „800 , 2: BC=BC-1 
nz 1SSTHENS1=S1+1: Ri=0: GSITOS3S70: ELSEIFX1=71ANDRi= 133THENS1=81- -1:Ri= 


0:GDT03 


90 
851 
862 


883 


964 
870 
oO 

BIO 
gro 
700 
710 
71i 
712 
380 
920 
930 


ee EG euros nenne ee 
IFM1=7OTHENTI=T1+1: ELSEIFM1=71THENTI=T1-1 

IFPEEK (T1)=7ODORPEEE (T1)=71THENZX=1:G0T01040 

IFPEEK (T1)S >32ZTHENCAI=O 

GOTOS7O 

POKET1 „32: IFM1=70THENT1=T1+2:H=PEEK (T1) :H1=PEEK T1-1) 3 IFH< FS20ORH1< >3ZTHEN109 


IFM1=71THENT1=T1-2:H=FEEK (T1} :H1=PEEK (T1#+1) 2 IFH< PS2ORH1< HF? THENZ=0: GOTO1C9O 
Z=Z+1: IFZ=15STHENZ7=0:GOT0O1100 

FOKET1,73:60T0530 

IFRZ=LI3SANDED=O THENR2=0 : GOTOISSO 

LiI=PEEK (52+1):L2=PEEK (52-1) 

IFR2=133AND ( (X2=70AND (L1=700RL1=71) ) OR (X2=7 1AND (L2=700RL2=71) 3) THENRZ2=0: 60TO 


IFR2=133THENPOKES? „67: SOUND1 ‚700 ‚2: SOUND1 „500 , 2: SOUND1 „800,2: BD=ED-1 
IFX?=70ANDR2=133THENS2=87+1: R2=0:GOT0380: ELSEIFX2=7 LANDR?2=133STHENS2=S2-1:RZ= 
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programme 


0: GOTO380 

740 IFC2=1THENR2=0:GOT0380: ELSET2Z=572: R2=0: C2=1: M2=X2: SOUNDS, 900,20 

941 IFM2=70THENTZ=T2+1:ELSEIFM2=71THENTZ=T2-1 

942 IFPEEK (T2}=700RPEEK (T2) =71THENZX=1: 60170770 

943 IFPEEK(T2)« >3ZTHENCZ= 

744 GOTO5SG 

950 FOKET2 ,32: IFM2=70OTHENT2=T2+2:H=FEEK (TZ} :H1=PEEK (T2-1) 5 IFH©FSZORH1S FSZTHENI11 
D 

940 IFM2=71 THENT?2=T2-2: H=PEEK (T2) = H1=PEEK (T2+1) 3 IFH< FAZORHIS >32THENUG=0:60TDO1110 
970 U0=U0+1: IFUG=15THENUO=0: GOTUL1Z0 

980 FOKET2,73:60T0540 


990 


FOKES1 ,X1: POKES1 ,77:50UND1 ‚600,5: S0UND1 ,700,10:S0UND1 „600,5 


1000 IFZX<>1 THENPC=FE-100:G0T01020 


1010 


PC=PC-30: Z7X=0 


1020 IFPCSLTHENCHARI ,12,2,"%##":G50T01130 
10350 C2=0:GOT0540 


1040 
1050 
1080 


POKES2 ,X2: POKES2, 77: SOUND1 „600,5: SOUND1 ‚700,10: SDUND1 „600,5 
IFZX« >1 THENPD=FD-100: 50101070 
FD=PD-230: ZX=0 


1070 IFFD< 1 THENCHAR1,29,2,"##*":G0T01130 


1090 
1070 
1100 
1110 
1120 
1130 
1140 
1141 
1150 


C1=0: 60T0530 

ZX=0: IFH=700RH=710RH1=700RH1=7 1 THENFDKES2 , 734 2%X=1:G0T01030 
C1=0: G0T05309 

Z%=0: IFH=7OORH=710RH1=700ORH1=71THENPOKES1 „73: 2ZX=1: G0T0770 
C2=0: 501705409 

PRINTCHR& (27) +"D" 

FORI=1T0800: NEXTI: GOSUBRSO09 

RESTORE1170 

DOUNTILJOY<(LIORJOY (2)=128 


1140 READK,L: IFK>-1THENSOUND1 ,K,L:5DUND2,K+10,L:ELSEGOTO1141 
1170 LOUOP 
1180 CLR=SCNELR:GOTOSOO 


1170 
12009 
2000 
2001 
2002 
20053 
2004 
2005 
2005 
2007 
zo08 
‚2007 


2014 
2015 
2016 
2017 
2050 
A090 
3010 
5020 COLOR1,2,5:3PRINTTAB(5}” 
SoIo 
3040 
3050 
3050 


DATA600 ,15,500,15,700,15,650,15,700,15,750,20,600,10,700,20,800,20 
DATA7S50,17,700,17,700,10,-1, 

V=65280: POKES6 „47: POKEV+18,PEEK (V+18) AND2S1: FOKEV+19 ,PEEK (V+19) ANDSOR48 
RESTORE2004 

FORT=832T0849: READA: POKET „A: NEXT: SYSB32 

FORT=12800T013100: READA: IFA+-1THENPOKET „A: NEXT 
DATA162,0,189,0,208,157,0,48,189,0,209,157,0,49,202,208,241,76 


REM ZEICHENDATAS 

DATAO,0,0,0,0,0,0,0 2010 DATAO,0,0,0,0,0,0, O0 ya 31777 
DATAO,0,0,0,9,0,0,9 2011 DATAO,0,0,0,113,255,248,216 
DATA?39 ,239 ,239,0,127,127,127,0 2012 DATAO,0,0,0,142,255,31,27 
DATA14,16,56,124,124,124,56,0 2013 DATA0,0,0,0,0,0,0,0 


DATAO,0,24,60,60,24,0,0 ugs naar 1 1 1 1 1 103003809 
DATR44,6,176,141,50,72,174,20 
DATA2SG,0,259,0,2533,0, 255,0 
DATAC,253,0,0,0,0,0,0,71 
RETURN 

SCNELR 

COLOR1 „2,6: PRINTTAR{S) "TRIER 








COLOR1,2,4: PRINTTAB(ZI" 
EOLORI1,2,5:FRINTTAR(DI" 5 
COLOR1 ,2,6: PRINTTAB{ZI" 
COLOR ,2,7:FRINTTAB(H "I, 


2070 CHAR1,18,15,"0F":COLOR1,8:CHAR1, 10, 17,5 "JEAN- FAUL HOFSTETTER" 
3080 COLOR1, 2:CHAR1,10,18, SERTTTITTTTITTTTTeTT® 
3090 RETURN 
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Programme 





Fiegen Sie als G-J6-Rocketman surch sie Lite 


Beider Eröffnungsfeier der Olympischen Sommerspiele von Los Angeles 1982 war derfliegen- 
de Raketenmann die Sensation und ist seitdem auch in der Bundesrepublik ein Begriff. Alle 
C-16-Besitzer haben jetztdurch dieses Programm die Gelegenheit, sich selbsteinmalals Rake- 


tenmann zu versuchen. 





Als „ROCKETMAN“ haben Sie die Aufgabe, 


in der ersten Höhle mindestens 5 Diaman- 
. ten einzusammeln. Dieses Vorhaben kön- 


nen Sie nur realisieren, indem Sie direkt 
auf die Diamanten zusteuern. 

Aber konzentrieren Sie sich nicht nur aus- 
schließlich auf die Diamantenjagd, son- 
dern weichen Sie gleichzeitig der gefähr- 
lich umherschwirrenden Kugel aus. Die- 
ses „Flugobjekt“ strahlt tödliche Strom- 
stöße aus. FallsIhr Rocketman davon drei- 
mal berührt wird, ist sein „fliegendes“ Da- 
sein beendet. 


Nach dem Einsammeln der Diamanten 
müssen Sie versuchen, die Plattform am 
rechten.Screenrand zu erreichen. Istihnen 
dies gelungen, ohne daß Sie gegen eine 
der zahlreichen Ecken, Kanten und Winkel 
geflogen sind, erscheint ein neues Bild. 
Hier haben Sie nun einen der vier abgebil- 
deten Generatoren einzuschalten (erfolgt 
durch Überfliegen), erneut den schwieri- 
gen Weg zu meistern, um dadurch in den 
nächsten Level zu gelangen. Jeder einge- 
Schaltete Generator erhöht die Flugge- 
schwindigkeit des Raketenmannes. 


Dieses Spiel wird selbst den erfahrensten 


„Joystick-Künstlern B einige Schwierigkeiten. % 
bereiten. Doch die Mühe lohnt sich! . - 





FRINTCHRE (27) "N" 
PRINT" \ 
FRINTCEHREF(ZII"T" 


SONO BUN» 


10 FRINT"LOESCHEN. 


ROCEETMAN TEIL 1 


PRINT"ERMIT DIESEM FROGRAMM ERZEUGEN SIE 
PRINT"EINEN NEUEN ZEICHENSATZ UND. EIN KURZES 
FRINT "MASCHINENFROSRAMM. " 

PRINT"BEWENN SIE EEINEN FEHLER BEI DER EINSABE 
FRINT"DER DATAZEILEN GEMACHT HABEN, KOENNEN 
FRINT"SIE DAS FROGRAMM ABSPEICHERN ODER 


"11 FRINT"ERDRUECKEN SIE NUN EINE TASTE, UM DAS 


12 FRINT"PROGRAMM ZU STARTEN. 


13 GETA$: IFA$=""THENGOTOLS 
14 PRINT"G" 


15 COLOR4,3,2:COLORB,1:COLOR1,10,4:VOL8 


16 FOKES6,47:V=45288 


17 FOEKEV+18,FEEK (V+18) ANDZS1 
18 POKEV+19,PEEK (V+197) ANDSOR48 


19 FR=0: FORT= 832T0849: READA: FR=PR+A: POKET „AsNEXT 

208 IFPR< >21 1STHENPRINT "ERBRERERRBIFEHLER IN DATAS TEILL"END 

21 5Y5932 

22 PR=B: FORT=12888T013108: READA: PR=FR+A: IFA>—1THENPOKET „A:NEXT 
=3 IFPR< >26688THENPRINT "EERTISKRRRBFEHLER IN DATAS TEIL 2"sEND 
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Programme 


PR=0: FORX=1T01&: READA: PR=PR+A: POKEX+293,A: NEXT 
IFPR< 6454 THENPRINT"ERERERBRBRFEHLER IN DATAS TEIL S":END 


24 
25 
26 
27 
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REM 


DATAS TEIL 1 


DATA 162,0,1899,8,288,157,2,48,189,0,229,157,0,49, 202,288,241,76 


REM DATAS TEIL 2 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DAaraA 
DATA 
DATA 
DATA 
DATA 


0,8,8,8,8,77,239,255 
255,255,239,109,77,68,64,0 
2,64,68,77,189,239,255,255 
7,127,15,3,31,63,7,31 
248,128,240,252,224,192,252,224 
3,127,15,31,3, 63,31,3 
252,128,240, 224 ,252,192,224,252 
254,248,168, 204,220, 128,64,0 
127,15,21,51,19,1,2,@ 
D,64,128,208,204,168,240,254 
0,2,1,19,51,21,15,127 

8,8, 12,28,21, 29 ,63,127 
187,94,255, 239 ,222,189,218,237 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
61 DATA 
DATA 


DATA 
DATA 


119,59,59,54,188,96,96,22 


0,9,9,2,0,126,255,129 
3,6,6,6,6,6,6,3 


192,96,96,76,96,96,96,192 
129,255,126,24,68,126, 192,255 


68,8,127,153,24,8,195,24 
182,8,8,129,0,8,0,127 
2,60,66,255,255,66, 680,0 


0,694,1535,255,255,163,60,8 


2,96, 144,9,6,0,146,0 
0,76,144,9,6,0,146,0,-1 


REM DATAS TEIL 3 
46,2,51,46,1,51,46,2,51,464,3,51 


118,5,51,96 


255.221,75, 186,92,171,90,253 
127.63,29,21,28,12,8,8 
218,189,222,239,183,234,107 
255,223,77,8,8,0,0,2 
94,126,62,58,58,56,56,16 
56,116,116,56,240,240,255,224 


237, 


222 ,220,228,188,54,6,6,7 


229,248,216,112,48,48,55,60 
29,46,46,29,15,15,255,7 
119,31,27,14,6,6,14,14 


PRINT"ERWOLLEN SIE DAS FROGRAMM JETZT 
PRINT"ABSPEICHERN, DANN DRUECKEN SIE DIE 
PRINT"TASTE WSPACEH. " . 
PRINT"BISAZUM LOESCHEN DRUECKEN SIE DIE 
FRINT"TASTE WRETURNEM. 


71 PRINT"SIE KOENNEN DANN DEN ZWEITEN PROGRAMM- 
2 FRINT"TEIL LADEN. 


GETA$: IFAS=EHR$ (13) THENFRINTCHRE (ZI "N" EZ NEW 


74 IFA&t=" "THENPRINTCHRE (27) "N"SEND 


GOT073 


1 ECOLORB,1:COLOR4,7,8:COLOR1,2:R=13 


19 
Zu 
Sa 
42 
Sa 
6B 
78 
82 
70 
128 
110 
120 
158 
140 
158 
158 
178 
192 
173 
222 
210 
228 
230 
248 
2589 
zog 
278 
288 





a m 


u] Ru 


181 


EHAR1,1,8,""— I. 
CHAR1,1,9, "01 | 
COLOR1,3,7-X 

CHAR1 9,13," 0 
CHAR1,9,14,"7 1, 
CHAR1,9,15, "11 — 
CHAR1,9, 16," - — 18 1- 
CHAR1,9,17, "7 
CHAR1,9,18," I} nr! H 
COLOR1 ,6,4:CHAR1,8,22,"BY 
IFJOY(1)= 
A1)=3321:C=8 
A(2)=3437 

A(3)=391& 

A(4)=3898 

FORX=1T04: B(X)=95:NEXT 
CUF= n wg" a CRf+f= Li} kt" 


“ln 
Klo Tu 


u 


Z—_ 


Yo le, 
"7 TR N 
CHAR1,1,5,' a 
CHAR1 1,6, "7118| 7077 | 
CHAR1,1,7," Lo 


4m 


FRINT"L"2 VOLB: GOSUB188B: X=B: VOLB 

IFZ=1THENLETX=X-1: IFX=-1THENLETX=@: Z=8: GOTOS® 
IFZ=BTHENLETX=X+1: IFX=8THENLETX=8: Z=1:60T02@ 
COLOR1,3,X 
EHAR1,1,3," 
ECHAR1,1,4, 


u 


#1 


El 


it _— 


— 


li I 


141 


Eu 


L_ 

r 
= 
Pe 


— I-. mn 
r 


. 


Hl ti 
SWEN STEINBORN/1985" 


1 ZSTHENGOTOZIG: ELSEGOTO2Z 


FORX=1T065: LUF=LUF+LUF: ERF=ERFHERF NEXT 


ME=S5: W=188: SC=9: 7=1 
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__Programme 









GOTOFEB 
SZ2 COLOR1,3,5: PRINTCHRE (273 "M" 

3180 FRINT"EIS SCORE: AIR: LIVES: m" 
Ss24 COLOR1,10,4 

s32 PRINTILISSTILRLLTISIIDTEERSC LU TS LIT LLTLL" 
S42 PRINT" ULLI ee I >LITILLI "LT" 














358 PRINT" IT imn- NOILSTTSLIB NE IPLSSTL" 
36@ PRINT" MI lm MDNTITONUDIL* 
379 PRINT" » 1 1a FAT" 
38a PRINT", - (m TREE 
398 PRINT"\| " r e IE IN" 
492 PRINT"! u a: . _ 
418 PRINT"_ u 4 Tr „ .n 
420 PRINT"- NL- EL r Fi 
450 PRINT" NT DL RD. Sl pre 





448 PRINT", — STILHLLLTS— ULTSNLITHLI- ALT a" 
45a PRINT" RL EUTIN ULB N 1" 
aaß PRINT" dL- Ti IL ILL NS IT ILS Te 
478 PRINT" u u u AL UT NEN 
288 FRINT"— m 7 Zu Sa DD N N FE 













498 FRINT"- . 7 es ; er —" 
Sa2 FRINT"_ £ > Fe 
512 PRINT"| F _n 
522 PRINT" E _“ 
530 PRINT" - No a 2 
540 FRINT" NS, BE A 0 Reh Fa 






558 PRINT". - 1 U. YTZ SL TA u NT VD Le 
555 CULOR1,6,6 

S62 FRINT"IJ DIAMONDS: GENERATORS: a 
>78 AU=3273: A0=32II: A=82: B=84: GOSUB1799: GUSUR1840: 9=3773 
s8Q9 FOKEAU,B:POKEADO A: GOSUB17272: GOSUBI 750: GOSUR1F7O 
S7B8 FOKEAU-1924 , 127: FOKEAD-1024,127 

&RQ RETURN 

1 COLOR1,S3,5: FRINTCHRE (27) "M" 

628 PRINT" SCORE: AIR: LIVES: Le 
658 COLOR1,10,4 

640 PRINT" ILFTENDE IE ILESSTILE IPOS UT LESMISLIT TI" 



















658 PRINT" ILFAL- UL ı_- 4LfSLiiLf> ” 
a62 FRINT"T TL.| IE il Tin ii 
678 FRINT"_ AI "TL=I Pi -1L4- 1- a 
&58 PRINT"— |#| TUI 1x7 17 nt 
678 PRINT"— . Zu pe 4 nm 7 IL 
788 PRINT"- — = 171 1 \, H Ki rTe 
718 PRINT". I. F Y_ =. | 
728 PR I NT "nmi-, — u”, SL” IT1r— EB 
7358 PRINT"TLYS-- Lin 0 NL VLLT 4,11, fi 






748 PRINT“ TITTLLISUNIT 1, - SSL DLILUTIOSSL- TL" 
758 PRINT" ISSUE ICHTEINL- 2 NLENSEINLL- LU" 
768 PRIN- IM1- {1 1U- IM TI TS 













7708 PRINT",— "T1L- 2. aa T- TINT -L* 
788 PRINT”’T_- Bar a 5 FT u ie "TL%7 1" 
7978 PRINT"L.— TIL 1 "T- IL- TIL" 
88B PRINT"TL- 17 Be Lo -- IL. Ze" 
B1B PRINT"IT FIR _ HH Au mu 
820 PRINT"NN- ITULTN- 0. AN -T- U 
838 PRINT" 2 TIL 08- I m 5 
848 FRINT"LL- AILTILNm- TL- H EI 
858 PRINT. TE TLLITLSSDNDDR U un" 






868 PRINTYLITLNLHLTTHLTTLSSSLITSSSLLLE LT 
845 COLOR1,6,6 
PRINT" 










DIAMONDS: GENERATORS: = 
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Programme 


888 AU=3150: AU=3199:89=3271:K=@ 

890 GOSUB1220: GOSUB1258: GOSUB1272 

908 POKEAO,85: POKEAU,8& 

918 POKEAD-1924 ,127:POKEAU-1924,127 

920 COLOR1,4,6:CHAR1,4,28, "#"2CHAR1,3,21," U" SCHAR1,4,22,"+" 
930 CHAR1,5,8,"#":CHAR1,4,9," [NE SCHAR1,5, 18, "+" 

948 CHAR1,9,5, "#":CHAR1,8,6," NE" SCHARL,9,7," +" 

950 CHAR1,18,19,"#":CHAR1,17,20," [2 CHAR1,18,21," +4" 

960 FÜRX=1TD4:FOKEA(K) „B{X) NEXT 

970 RETURN 


798 
3770 
97953 
1280 
1218 
1828 
1858 
1248 
1258 


19978 
1108 
1118 
1128 
1158 
1149 


‚1198 
1208 
1210 

=28 
1238 
1240 
1252 
1269 
1272 
1288 
1281 
1282 
1285 
12984 
1299 
1308 
1318 
1320 
15358 
13408 
1358 
1368 
1370 
1380 
1392 
1408 
1405 
14182 
1420 
1430 
1449 
1458 
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IFZ=1 THENGOSUBIRQ: GOTO 975 
IFZ=ZTHENGOSUB&18: 560T01885 
GOSUE1281: 50SUB1283 ; 


IFJOY (1) =BANDPEEK (AU+40) =77THENGOTO1940: ELSEGOSUB13SR 
ee a 
POKEAU-F „52: POKEAOF ,3 1048 IFW<=1THENGOTO1190 
POKEAU ‚B: FOKEAU-1024,127 a I = 2 
En A ern Beier 65 IFK=4ANDAU=STHENGOSUBSOR: S=3913 
r 1270 IFAU=SANDC>=STHENLETZ=Z+1:L=1:G0T0988 
BOSUB1&20 
W=W-. 2: 60SUB1250 1230 GOTULEDR 
1295 GOSUB1281:G0SUB1283 


IFJOY (1) =BANDPEER (AU+49) =77THENGOTD113@: ELSEGOSUB1FIR 
POKEAU-F „32: POKEAU-F „32 > 
POKEAU,B: FOKEAU-1024,127 1159 IFW<C=1THENBOTOLIAN 
1155 IFAU=SANDG=4THENGOTO2U8@ 


POKEAU ‚A: POKEAD-1@24,127 
FÜRF=1TOR:NEXT 1142 I FAU=STHENLETZ=1: L=8:C=0: GITGFEN 
W=W-. 2: GOSUB1250: BOSUB176R: SY5294 1172@ G0T01098 
1188 REM GAME DVER 
COLOR1 ,2:PRINT"B"LEFTS(CUF,IDILEFTSCCRF DM SEAME DVER!“" 


FORX=1T0300: NEXT: GOSUB1928: FORX=1TOSQAR: NEXT: RUN 

G0T01720 

PRINT"B"SFC (9) 5: PRINT" "USING "IHHHAHRR" ; SC 

IFPEEK {CR} >S2THENGOTO127M 

RETURN 

PRINT"BI"SPE (22) 3; : PRINT"W"USING"#B##" 5 INT (W) 

RETURN 

PRINT"S"SPC (36) 5: PRINT" "USING" ##"; ME 

RETURN 

PRINT"@"LEFT$ (CU$, 24) LEFTE (CR$,13) 5 

PRINT "I" USING" #4#" 3 C: RETURN 

PRINT"E"LEFT$(CU$,24) LEFT$(CRF 33) 5 

PRINT""USING"##"56: RETURN 

ER=INT(RND{1)* 9BQ)+3112 

IFPEEK {CR} £ >32THENGOTO1298 

POKECR ‚42: POKECR-1024,258 

RETURN 

IFJOY (1) >IBTHENLETF=-48: PR=AO+F : SOSUB1428:6070139@ 

IFJOY (1) =STHENGOTO1370 

IFJOY (1)=7THENGOTO1380 

F=40: FR=AU+F : SOSUB1490: 60101392 

F=1:A=82: B=84: PR=AU+F :GDSUB1480: PR=AD+F : SOSUB1408: GDTO1398 

F=-1:A=85: B=9&: PR=AUFF : GOSUB1408: PR=AU+F : GOSUB1490: 60701378 
AU=AU+F : AU=AU+F = RETURN 

IFPEEK (PR) =42THENSOUND1 „508,4: SOUND2, 720,4: C=C+1:DI=DI+1:SC=SC+50: GOT01458 
IFPR=KBTHENBOTG1S11 

IFPEEK (PR) < >32THENGOTO1528 

RETURN R 

POKECR „32: 605SUB122@: GOSUB1281 
GOSUB 1290: IFC< >STHENGOTO1428 
FORY=1T02: FORX=SBBTO1ABBSTEPS@: SDUNDI ,X,2: SOUNDZ2 ,X-22,2: NEXT: NEXT 
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1468 
1511 
1512 
1513 
1514 
1517 
1522 
1538 
1542 
15732 
1569 
1578 
1580 
1578 
16802 
1491 
1522 
1610 
1428 
16382 


1768 
1770 
1788 
1778 
1882 
1894 
1810 
1922 
1938 
1848 
18958 
1968 
1878 
1998 
T 

18970 
1790 
1710 
1728 
19732 
Y 

1740 
1959 
1982 
zaaa 
2210 
2028 
2838 
2B40 
2258 
zBa0 
2070 


programme 


SC=SC+ LORD: WeW+öR: GDSUB1228: GOSUB1250: RETURN 
T=T+1 

POKEAU-1924 ‚64: POKEAD-1@24 ‚64: FOKEKG-1924, 127 
FORX=1920T0G988STEP-1: POKEKG , 92: SOUNDS ,X, 15 POKEKG „34: NEXT 
IFT=3THENGOTO1528 

POKEKG , 74: RETURN 

POKEAU, 32: POKEAD, 3? 

FOKEAU+F „92: POKEAO+F „92 1648 K=2:60T01720 
POKEAU+F-1024 ,127 1558 K=-2:G0T01728 
POKEAD+F-1824,127 1640 K=80: 60701728 
FORS=8BUTOSBASTER-28: SOUNDS ,5,1:NEXT 16878 K=-88: 60701728 
POKEAU+F „735: POKEAO+F „95: T=8 1680 *=82:60T01720 
FORS=480T01BBUOSTEP2@: SOUNDE,„S,1:NEXT 1892 K=-82:G0T01728 
FOKEAU+F „32: POKEAU+F „32 1788 K=78:60T01720 
ME=ME-1: IFME=BTHENSOTO1188 171@ K=-78: 60701720 
IFZ=2ZANDL=OTHENLETB (X) =95:PFOKEA (X) „BOX ıG=B-1 1728 IFPEEK (KG+K)< >32 
GOSUB ı 283 THENRETURN 

VINT RNDELD «EA. ee 
ONVENTO1648, 1650, 1660,1670,1680,1690,1700,171@ 1750 RETURN 

IFL=1 THENIFPEEK (AU+49) =8BTHENGOTO17BB 

RETURN 

IFPEEK (AU+88) =9& THENRETURN 

FORX=1T04: IFAIX}< >AU+BDOTHENNEXT 
FORT=1928T01B8STEF-20: SDUND1 ,T,2:SOUND2, T-38,2: NEXT:6=5+1:W=W+38 
R=R-3: GOSUB1233 

FORT=128T01223STEP28:= SOUND1 ,T,2: SOUND, T-2Q,2:NEXT 

POKEA (X) ,96:B (X) =94:L=0 

C=B: G0SUB1281 : RETURN 

KG=INT (RND (1) #909@) +3112 

IFPEEK (KG) < >S2THENSOTO1848 

POKEKG, 94: POKEKG-1074,6B 

RETURN 


RESTORE17BB: FORX=1T09: READA,B,C: SOUND „A,B: SDUND2 ,A+89 ,B: FORY=1TOC: NEXT: NEX 


FORI=1T0488: NEXT: FORU=1T08: VOLB-U: FORI=1T0408: NEXT=NEXT 

DATA 516,29,130,453,06,090,514,26,899,453,06,090,596,10,120, 2 19,128 
DATA 569,10, 128, 643,12,120 ‚685,50, 1° 

RETURN 

RESTORE 1942: FORX=1TO11:READA,B,C: SOUND1 „A,B: SOUND? ,A+5 ,B: FORY=1TOC: NEXT:NEX 


DATA 262,35,559,262,38,001,169,25,310,262,40,120,383,30,120,345,25,140 


DATA 345,35,120,262,30,450,262,35,091,169,30,31@0,262,60,1 
RETURN 

PRINT"L" 

PRINT "Re HERZLICHEN GLUECKWUNSCH tt" 

PRINT"EEN SIE HABEN ALLE GENERATOREN EINGE- 

PRINT" SCHALTET. " 2888 PRINT"M (Jz/" 

FRINT" DABEI ERREICHTEN SIE ";SC;" PUNKTE UND"]| 2285 GDSUB1880 

PRINT" HATTEN NOCH EINEN SAUERSTOFFVORRAT" 2098 GETA$: IFA$="J"THENRUN 
PRINT" VON ":W5" EINHEITEN." - 2188 IFA$="N"THENPRINT"G" END 


PRINT"MIS MOECHTEN SIE NOCH EINMAL SPIELEN ?" |2118 60TO02898 


ERESCHEENE GEST: große Bereich - Spielprogramme - abgeschlossen. 


Auf den nächsten Seiten finden Sie noch einige Tips & Tricks und eine Vielzahl von 
 Anwendungsprogrammen für Ihr System! | 
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Rig Attack 


„RIG ATTACK“ ist ein Action-Game mit 
ausgezeichneter Grafik und insgesamt 
sieben verschiedenen „scrolling screens“. 
Das Spietgeschehen ist äußerst interes- 
sant aufgebaut und sehr abwechslungs- 
reich, so daß keine Langeweile auftreten 
kann. 


Als Hubschrauberpilot müssen Sie ge- 
fährliche Aufträge erfüllen und die Angrif- 
fe feindlicher U-Boote überstehen. Dabei 
ist es aber gar nicht so einfach, den tödli- 
chen Torpedos zu entweichen. Zu Ihrer 


28 


Verteidigung können Sie über das Wasser 
fliegen und Wasserbomben abwerfen. 
Das Spiel hinterließ in unserer Program- 
mierabteilung durch die hervorragende 
Grafik und das abwechslungsreiche 
Spielgeschehen einen positiven Eindruck. 
Hersteller: Tynesoft Computer Software, 
Blaydon 


u eh RE 


Formula 1-Simulator 


Die absolut realistische 
Darstellung eines 
Formel-1-Laufes. 


Dieses Programm der Software-Firma 
Mastertronic bereitet schon beim ersten 
Einstieg das reinste Spielvergnügen. For- 
mula-1-Simulator zeichnet sich durch ei- 
ne hervorragende realistische Darstellung 
des Rennstreckenverlaufs aus. Die Steu- 
erung Ihres Rennwagens istsehr direkt, so 
daß es nach einiger Übung nicht schwer 
fällt, die Ideallinie zu finden. 

Was tatsächlich, auch dem erfahrenen 
Joystickpiloten, Schwierigkeiten bereitet, 
sind die komplizierten Überholvorgänge. 
Taucht ein anderer Rennwagen vor Ihnen 
auf, müssen Sie in Sekundenbruchteilen 
den richtigen Moment abpassen, die Lük- 
ke erspähen und an Ihrem Konkurrenten 
vorbeiziehen. 

Für das Zurücklegen einer bestimmten 
Strecke und für erfolgreiche Uberholvor- 
gänge erhält man Punktgutschriften. Jede 


CSompupbe mi 


Kollision mit einem anderen Fahrzeug 
oder jedes Abkommen von der Straße 
wirft Sie entscheidend zurück. Das ge- 
samte Renngeschehen ist natürlich dem 
Zeitfaktor unterworfen. Also wieder ein- 
mal ist ACTION im Höchsttempo gefor- 
dert! 

Fazit: Für denjenigen, der vom Formel-1- 
Geschehen fasziniert ist und selbst einmal 
ein solches „Geschoß“ mit über 400 PS 
unter der Haube steuern möchte, ist die 
Anschaffung dieses Programms sehr zu 
empfehlen! 


%* * 


GRAND MASTER 


CHESS 


. Grandmaster für den Commodore 16/116 


ist die neueste Version des bereits überall 
erhältlichen Prograrimes für die legendä- | 
ren Systeme G-64 und VC-20. 

Dieses Schachspiel zählt nach Auskunft 
des Herstellers zu den besten Schachspie- 
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len, die auf dem deutschen Software- 
Markt derzeit angeboten werden. Es ist für 
Anfänger und Fortgeschrittene geeignet 
und verfügt über einige spezielle Funktio- 
nen, um Ihnen größtmöglichen Bedie- 
nungskomfort zu bieten. So können z. B. 
verschiedene Spielstufen gewählt wer- 
den, automatisches Spiel ist möglich, 
Wahl der Bildschirmfarben u. v. m. 
Grandmaster ist die gelungene Schach- 
version für den C-16/116 und sollte jedem 
schachinteressierten Computer-Besitzer 
eigentlich bekannt sein. 

Hersteller: KING-SOFT, Roetgen 








%* 





 SKRAMBLE 


Das Spiel Skramble versetzt seinen Besit- 
zer in die Lage, der Kommandant eines 
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Raumschiffes im Jahr 2184 zu sein und 
die Erde von der Herrschaft der superin- 
telligenten „Command-Module“ zu befrei- 
en. Dazu müssen Sie über das Land flie- 
gen und die stationierten feindlichen Ra- 
keten vernichten. Dazu steht Ihnen eine 
Laserkanone und eine unbegrenzte An- 
zahl an Bomben zur Verfügung. 

Das Spiel zeichnet sich durch eine sehr 
gute scrollende Grafik aus. Der Spielge- 
danke und die Spielidee sind nicht mehr 
so ganz neu. Ein weiteres Plus ist aber die 
Spielgeschwindigkeit und dasMaß an Ge- 
schicklichkeit, das man Ihnen bei diesem 
Spiel abverlangt. 


OUT ON A LIMB 


Das Programm besticht hauptsächlich 
durch eine einzigartige Graphik, ‘großen 
Spielwitz und technische Raffinessen. 


Sompure mi 








Diese Version ist angelehnt an die Origi- 
nalversion für den Commodore 64. Aller- 
dings ist sie auf Grund des geringeren 
Speicherplatzes nicht ganz so spielerisch 
ausgestattet. Die Hauptaufgabe des klei- 
nen Jack, das Schloß des Riesen zu errei- 
chen und dort den Schatz finden, ist je- 
doch gleich. Natürlich muß er aber auch 
hier auf seinem Weg allerlei Abenteuer 
und Prüfungen überstehen. 












Neben diesen Programmen hat die engli- 
sche Software-Firma Anirog noch weitere 
Programmangebote für den C-16/116: 







Petch, Star Commander, 3 D Time Trek, Cata- 
combs sowie ein Programmangebot mit 
insgesamt vier Topprogrammen auf einer Kas- 
seite: 

Flight Path 737, Moonbuggy, Las Vegas, Zodiac 

















“_ %* 













MONKEY MAGIC 


Join Monkey fliegt auf einer Wolke durch 
die Lüfte und muß sich gefährlichen An- 
greifern zur Wehr setzen, die nach seinem 
Leben trachten. Sie haben insgesamt drei 
Leben zur Verfügung und müssen schon 
erheblich viel Geschick und Schnelligkeit 
vorweisen, um den Angreifern. zu entge- 
hen oder diese zu vernichten. 
















Die gute Grafik und das schnelle Spielge- 
schehen lassen bei diesem Spiel viel 
Spielfreude zu. 








Das Spiel wechselt-innerhalb drei ver- 
schiedener Levels, in denen die Angreifer 
aus unterschiedlicher Richtung und mit 
unterschiedlicher Geschwindigkeit auf 
Sie zukommen. 












. 

| 
| 
a 
! 


Weitere Programmangebote für den C-16/ 
116 von der Firma Solair Software: 

Robin to the Rescue, Invasion 2000 A.D., Gala- 
xions 


* * 


CUTHBERT IN SPACE 


Das bekannte Software-Haus Microdeal 
stellt für den Commodore 16/116 eben- 
falls zwei neue Programme vor. In der be- 
reits bewährten und vielen „Hackern“ be- 
kannten Cuthbert-Programmreihe gibt es 
den neuen Titel „Cuthbert in Space“. Es 
beschäftigt sich mit den Abenteuern des 
Guthbert im All. Dieses Programm ist wie 
auch die anderen Guthbert-Programme 
mit einer bestechenden Grafik ausgestat- 
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tet und der Spielwitz und die Geschick- 
lichkeit sind hervorragend. Auch bei dem 
zweiten Cuthbert-Programm, mit dem Ti- 
tel „Cuthbert in the Cooler“ ist es dem 
Software-Haus gelungen, die gewohnte 
Qualität der Programme beizubehalten. 


Hersteller: 
Microdeal, 41 Trauro-Rd, St. Austel, Cornwall 
PL 25, 5 JE 


ee . ; 


CUTHBERT IN THE COOLER 


„Cuthbert in the Cooler“ ist ein Action- 
Spiel, bei dem Sie mit Strategie und Ein- 
fallsreichtum an die Lösung der gestellten 
Aufgaben gehen müssen. Beide Program- 
me stellen eine interessante Softwarebe- 
reicherung dar. 
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COMMODORE 16 GAMES PACK I 


Das Melbourne House bietet in seinem 
Software-Angebot neben verschiedenen 
einzelnen Programmpakeien für den C- 
16/116 auch zwei „GAMES PACK’s“ an. 
Das hier abgebildete GAMES PACK I bietet 
insgesamt 15 verschiedene Spiele die Ihre 
Reflexe testen, Ihre Logik trainieren, Ihre 
Strategie und Ihre Intelligenz testen usw. 


Auf der Kassette befinden sich folgende 
Programme: 


Micro Minotaur, Breakin, Warlock, Unscramble, 
Blockade, Hangman, Dragons Lair, Blackjack, 
Penetrator, Sam, Siege, 2D Maze, Zapp, Star, 
Trader, Looney Landa 
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verfolgt. ‚Vegas Jackpot“ simuliert einen 
Geldspielautomaten, bei dem Sie Ihre Ein- 
sätze selbst bestimmen. Mit Hilfe der Risi- 
kovariante können Sie dann diese Einsät- 
ze verdoppeln oder max. £ 100 erreichen. 





Be 


I ee 
Das zweite „GAMES PACK“ beinhaltet fol- 
gende Programme: 







Minotour, Hunter, Letterbox, Ganymede, Dum- 
per, Alien Overrun, Dungeon, Chess, Scrambler, 
Chrash Barrier, Snakepit, Reel Thing, Mind Quiz, 
Tank Ambush, Road Patrol 





Grafik läßt die Vermutung zu, man hat ei- 
nen echten Spielautomaten vor sich. 
Wenn Sie auch zu den „Spielernaturen“ 
* gehören, dann sollte dies Programm nicht 
in Ihrer Sammlung fehlen. 





%* 








VEGAS JACKPOT 


Wer kennt es nicht, das Mekka des 
Glücksspiels, „Las Vegas“. Das Spiel „Ve- 


Weitere Mastertronic-Programmangebote 
für den C-16/116: 


gas Jackpot“ z. Z. auf Platz 20 in der engli- - Spectipede 
schen Software-Hitliste — versetzt-Sie in Rockmann 
die Welt des bezahlten Glücksspiels. Hier Tutti Frutti 
können Sie Ihrer Spielleidenschaft frönen, Squarm 
ohne gleich Haus und Hof verkaufen zu BMX-Races 
Bic-Mac 


müssen, wenn Sie einmal die Pechsträhne 
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In unseren nächsten Ausgabe von „Gompu- 
te mit“ werden wir noch weitere Program- 
me für den 6-16/116 vorstellen. Wir glau- 
ben, hiermit einen wichtigen Beitrag für 
unsere Leser zu leisten. 


























Insgesamt sind derzeit in Deutschland 
über 60 Programme für den G-16/116 er- 
hältlich. Die nachfolgende Liste gibt Ihnen 
einen Überblick über die Herstellerfirmen 
und die angebotenen Programme: 





Hersteller: Tynesoft 
Programmangebote: Climb it, Gonoe Slalom, 
Hoppit, Zap-em, Munchit, O!ympiad, Shoot it, Lu- 
nar Docking 





Hersteller: Razar Soft 
Programmangebote: Mega Zap, Mail Trail, 
Seasirike, Raider 







Hersteller: Solair Software 
Programmangebote: Robin to the Rescue, In- 
vasion 2000 A.D., Galaxions. 





Hersteller: Bubble Bus Software 
Programmangebote: Gave Fighter, Hustler 



















Hersteller: Adventure International 
Programmanbote: Gremlins, Spider-Man 


Hersteller: Gremlin Graphics 
Programmangebote: Darks Dielemma, Ty- 
coon Tex, Xargon Wars, Petals of Doom u.v.m. 


Alle hier vorgestellten Programme können 
direkt in Deutschland bestellt werden. 


Die Bestellanschrift für die Programm 
lautet: 
RUSH-WARE GmbH 
F An der Gampkesbrücke 
4404 Kaarst 
Tel.: 02101/60040 
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Wenn Sie nicht wie diese beiden netten Herren alle Programm dieser 


Ausgabe abtippen möchten, füllen einfach die beiliegende Bestellkarte 
aus und senden Sie diese ein. 


‘Wir liefern Ihnen alle Programme dieser Ausgabe auf Kassette oder Diskette innerhalb nur u 


.. nach Eingang der Bestellung in unserer Software-Abteilung. 
np 5 m in 
Programmpaket Kassette: Bitte beachten: Bei telefonischen Bestellungen erhebt die Post 


Bestell-Nr.: CSOK 1 noch eine Nachnahmegebühr von 5,- DM. Auslandslieferungen er- 
Preis: 49,50 DM folgen nur gegen Vorkasse (Bargeld oder Verrechnungsscheck). 
EEE TE EAN 


Programmpaket Diskette: BEER 1-7 EU -BlBa 17 BT JOHN EIUIENTTUCHENTS 


Bestell-Nr.: CSOD 1 WW 0 dem EU EIETE 


Preis: 59,50 DM 
Programm Kassette Diskeite Best.-Nr. 


nr Fantasy-Country/Horror Castle 18,-—- DM - 023 
Beide Programmpakete ent- Zeichendesigner 14,-- DM - Vo 8/85 

halten alle Programme OLD-Routine/Merge-Routine/ 

dieser Ausgabe. Change Type . 14,-- DM v0 1/86 
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222 Preisrätsel 27? 
C-16/116 das unbekannte Wesen? 


Geben Sie doch bitte einmal im Direktmodus folgenden Befehl ein: 


SYS 52652 (Return) 


Sicherlich wundern Sie sich auch über die „Reaktion“ Ihres Computers. 


Preisfrage für alle Insider! 


Was hat das zu bedeuten ? 


Die ersten 10 richtigen Einsender unserer Preisfrage erhalten eine Programmkassette mil allen 
veröffentlichten Programmen aus der neuen G-16/116 Sonderausgabe. 
Nutzen Sie Ihre Chance und lüsen Sie unser kleines Rätsel. Der Rechtsweg ist ausgeschlossen. 


Friedrichsstr. 18-Kassel-Tel.0561/13513 222 ... 
...0 0909 9090909 082008 0... 
102.5° : euititt Sstit sittsse 


software — Fa #33: 


SW. h 
Krak 


x nr SE 
en CBM g/m |COMMOPORE 16/116 « 
Pi tar en Lotto, 4/° 128 16 1 6 


S 
Da 


en Sc Chac. 2. Diagnog, 
ch, open SÖFT- UND HARDWARE INGROSSER AUSWAHL! 


120 
Ppy, h #1 

ör: Lada = a, un an, nd 2 (JOYSTICKS/SPIELE/BÜCHER ETC.) 
 Staubse ne 32, kan UK, KOSTENLOSE INFOS ANFORDERN BEI: 

; mas, Sken N. Reg und 
ard. und S; N, Hin Kay eset7ag ; ung 

En » Goftware-Versand 
efman, A. BACHLER 

POSTFACH 429 


4290 BOCHOLT 


BAIERZ TECHNIK 


‘ & 'schöndberger Str: Stkiuhgszeiten: " ä i Händler- “ 
"1000 Berlin 42 Gempeinen;  Mo-F3:10-18 Uhr; anfragen "-:. SOFTWARE AUCH FUR ANDERE COMPUTER! 
= 030-752 91:50/60 '- Sa: 10-13 Uhr erwünscht m 
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bücher 


Was fehlt auf Ihrem 
Bücherbord? 
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C-16 für + Einsteiger, Norbert Szczepanowski 


Dieses Buch liegt vollständig in der so er- 
folgreichen Linie der großen Data Becker- 
Bücherfamilie. Sowohl in seiner typisch 
rot-weißen Broschur, als auch inhaltlich 
stellt es ein Aquivalent zu den übrigen 
„...für Einsteiger“-Titeln von Szczepa- 
nowski (ein Name, den man sich auf der 
Zunge zergehen lassen sollte) dar. 

„6-16 für Einsteiger“ will sich als „das erste 
Buch zum COMMODORE 16“ verstanden wis- 
sen und nur unter diesem Aspekt kann 
man es richtig beurteilen. So entsprechen 
die ersten drei Kapitel dieses Buches im 
Grunde den ersten drei Abschnitten aus 
dem Handbuch. Es werden nacheinander 
das Auspacken und der Anschluß des C- 
16, sowie der wichtigsten Peripheriegerä- 
te, die Bedienung der Tastatur und der 
Umgang mit fertig gekaufter Software er- 
klärt. Szczepanowski schreibt dabei in ei- 
nem leicht-lockeren Stil, der dem Einstei- 
ger diese trockenen Einleitungskapitel um 
einiges schmackhafter macht, als dies im 
Handbuch geschieht. 

Zusätzlich werden alle Ausführungen mit 
einer Unzahl von Bildschirm- und Tasta- 
turfotos dokumentiert, wodurch es dem 
Leser beinahe unmöglich wird, etwas 
nicht zu verstehen oder falsch zu machen. 
Im vierten Kapitel („Der erste Befehl“) er- 
fährt dann der PRINT-Befehl eine Würdi- 
gung, die seiner Bedeutung beim Pro- 
grammieren wohl gerecht wird. In einem 
ganzen Kapitel wird er sehr ausführlich 
und in alten Varianten bis in den äußersten 
Winkel ausgeleuchtet. Um eventuellen 
Verwirrungen aus dem Wege zu gehen, ist 


es auch derselbe PRINT-Befehl, der im 
nächsten Kapitel („Das erste Programm“) 
dazu dient, zu erläutern, was ein Pro- 
gramm ist, Dabei wird nicht Wert darauf 
gelegt, ein besonders sinnvolles Pro- 
gramm zu schaffen, sondern es wird sehr 
detailliert auf Aufbau und Sinn und Zweck 
eines Programms eingegangen. 

Im sechsten Kapitel („Programmierhil- 
fen“) wird schließlich der letzte Grund- 
stein gelegt, um endlich mit der eigentli- 
chen Programmierung beginnen zu kön- 
nen. Es werden die Befehle erläutert, die 
den Programmierer bei der Erstellung von 
Programmen unterstützen sollen (AUTO, 
RENUMBER etc.). Der Autor macht dabei 
erstmals von einem, wie wir meinen sehr 
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sinnvollen Konzept Gebrauch. Neue Be- 
fehle werden eingeführt, indem sie in ei- 
nem grau abgesetzten Kasten nach fol- 
genden Kriterien vorgestellt werden: 


Problemstellung: Hier wird genau die 
Wirkung des Befehls erläutert. 
Beiehl: Der Befehl wird in seiner ge- 
nauen Syntax und mit allen Para- 
melern genannt. 

Parameter: Die Parameterliste wird 
genau erläutert. 

Beispiel: Für jeden Befehl wird ein 
typisches Beispiel geliefert. 
Bemerkungen: Spezifische Besonder- 
heiten werden gesondert heraus- 
gestellt. 


Diese Art der Befehlseinführung ist sehr 
übersichtlich und leicht verständlich, bei 
späterem Nachschlagen dient sie hervor- 
ragend als Gedächtnisstütze. 

Im siebten Kapitel wird es dann interes- 
sant. Stück für Stück entwickelt der Autor 
eine kleine Adressenverwaltung in Basic, 
wobei jeder neue benötigte Befehl nach 
dem oben beschriebenen Konzept einge- 
führt wird. Da jeder neue Programmab- 
schnitt sehr ausführlich dokumentiert 
wird, dürfte es auch für den Einsteiger 
kein Problem sein, den Programmablauf 


“nachzuvollziehen und zu verstehen. Was 


besonders angenehmiin diesem Abschnitt 
auffällt, ist die sehr gute Lesbarkeit des 
Programmlistings. 

Der letzte Abschnitt in diesem Buch befaßt 
sich schließlich noch mit der sequentiel- 
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ien Datenspeicherung auf Diskette und 
Kassette, sowie der Abfrage der Joysticks 
von Basic aus. Er ist wie alle anderen sehr 
ausführlich und leicht verständlich. 

Was leider negativ an diesem Buch auf- 
fällt sind zwei gewichtige Punkte: zum ei- 
nen werden nicht alle Befehle und Anwei- 
sungen, die der G-16 versteht, in diesem 
Buch erwähnt (so fehlen allein die Grafik- 
und Soundbefehle gänzlich), und zum an- 





Dieses Buch für den Commodore 16 ent- 
spricht inhaltlich dem Titel „Ber Commodore 
64 in der Praxis“, der ja mittlerweile eine Art 
Standard für G-64-Anwender geworden 
ist. Es handelt sich dabei um die deutsche 
Ausgabe des englischen Originaltitels 
„The Working Commodore 16“ und ist von 
David Lawrence, dem wohl erfolgreich- 
sten Autoren innerhalb der Commodore 
Sachbuchreihe, geschrieben. Am Inhalt 
und Stil ist leicht zu erkennen, daß es sich 
nicht gerade um das Erstlingswerk des 
Autors handelt. Der Text liestsich sehr gut 
und ist leicht zu verstehen, bis auf.einige 
Druckfehler, die gerade den Anfänger sehr 
stark verwirren können, da sie zum Teil 
den logischen Gedankenablauf verfäl- 
schen. 
Im Gegensatz zu Data Beckers „C-16 für 
Einsteiger“, könnte man dieses Buch viel- 
leicht am besten als das Buch nach dem 
_ Handbuch bezeichnen.Die formale Kennt- 
nis aller Befehle des C-16-Basic wird in 
diesem Buch von Anfang an vorausge- 
setzt. Ziel ist es nun, mit Hilfe dieser for- 
malen Kenntnis dem Anfänger, und nicht 
nur dem, die nötige Erfahrung im Umgang 
mit diesen Befehlen, sowie die wichtig- 
sten Programmiertechniken zu vermitteln. 
Dabei greift Lawrence auf ein vielfach er- 
probtes Konzept zurück: er entwickelt im 
Grunde gemeinsam mit dem Leser eine 
Anzahl an Programmen (in diesem Buch 
17 an der Zahl), die zum einen, alle inter- 
essanten Bereiche der Gomputeranwen- 
dung abdecken und zum anderen im ab- 
getippten Zustand eine ansehnliche Pro- 
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deren sind DM 29,-- für ca. 200 Seiten 
Computerbuch einfach zu viel. 

Dennoch kann man, unserer Meinung 
nach, dieses Buch jedem empfehlen, der 
mit dem C-16 wirklich ganz neu in die 
Computerei einsteigt und für den der 
Computer noch ein großer schwarzer Ka- 
sten ist. Die vielen Umsteiger dagegen, die 
vom VC-20 auf den G-16 wechseln, wer- 
den kaum etwas entdecken, was für Sie 


Der Commodore 16 in der Praxis, oma 


grammbibliothek bilden, was bei dem ma- 
geren Softwareangebot für den G-16 nicht 
zu unterschätzen ist. Dies mag den Ein- 
druck erwecken, es handle sich bei die- 
sem Buch um eine simple Programm- 
sammlung für den C-16. Dieser Eindruck 
ist auch gar nicht falsch. „Der C-16 in der 
Praxis“ istauch eine Programmsammlung. 
Doch werden die Programme, wie gesagt, 
nichteinfach abgedruckt, sondern modul- 
weise entwickelt. Dabei wird zunächst die 
Problemstellung, der das Programm ge- 
recht werden soll, theoretisch ausge- 
leuchtet, und dann wird das Programm 
abschnittweise abgedruckt, wobei jeder 
Abschnitt zeilenorientiert sehr, sehr aus- 
führlich dokumentiert und erklärt wird. 
Mit diesen Erläuterungen sollte es Nie- 
mandem Schwierigkeiten bereiten, den 
Programmablauf zu verstehen und nach- 
zuvollziehen. Die Eingabe wird also nicht 
etwa zur stupiden Abtipperei, sondern der 
Anwender, zumindest wenn er nicht nur 
auf die Programme erpicht ist und die Er- 
läuterungen übergeht, lerntnebenhereine 
ganze Menge über die Programmierung in 
Basic. Lawrence hat dabei versucht zu- 
sätzlich solche Programme auszusuchen, 
die einerseits nicht zu schwierig und vor 
allem nicht zu !ang sind, und die anderer- 
seits trotzdem nützlich und sinnvoll sind. 
Diese Mischung ist ihm hervorragend ge- 
lungen. Essind Programme ausfolgenden 
Bereichen enthalten: verschiedene Dar- 
stellungen der Uhrzeit, Grafiken im Low- 
und Hi-Res-Modus, Zeichen im hochauf- 
lösenden Grafikmodus, Musikprogramme 
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interessant wäre. Ob ein erweitertes 
Handbuch im Endeffekt DM 29,-- wert 
ist, muß jeder für sich entscheiden und 
hängt sicherlich vom Geldbeutel des je- 
weiligen Anwenders ab. Waldemar Raaz 


Titel: 6-16 für Einsteiger 
Autor: Norbert $zezepanowski 
Verlag: Data Becker, Düsseldori 
Bestellnr: ISBN 3-89011-068-1 


zum Erstellen von Musikstücken, Verwal- 


tung von Daten, Erstellen von Texten, Ver- 
waltung von Konten. 

Im großen und ganzen also aus allen klas- 
sischen Gebieten der Computeranwen- 
dung. In den Listings sind übrigens alle 
Steuercodes in einen Klartext-Code über- 
setzt, was enorm zur Lesbarkeit der Li- 
stings beiträgt. Negativ ist uns an diesem 
Buch eigentlich nur ein Punkt aufgefallen: 
die Übersichtlichkeit scheint aufgrund der 
kleinen Auflage, in der das Buch erschie- 
nen ist, in den Hintergrund getreten zu 
sein. So ist der Beginn eines neuen Kapi- 
tels schon schwerlich auszumachen, 
doch nach dem Beginn eines neuen Pro- 
gramms innerhalb. eines Kapitels muß 
man schon einige Zeit suchen, wenn man 
einmal ein Programm nachschlagen 
möchte. Dies ist jedoch ein Punkt, der 
nach unserer Meinung nicht sehr schwer- 
wiegend ist. Wieder erfreulich ist hinge- 
gen der Preis dieses 210 Seiten umfas- 
senden Buches. Man muß exakt DM 
29,80 locker machen, um in den Genuß 
dieses Werkes zu kommen. Ein Preis, der 
gemessen an dem Inhalt des Buches 
durchaus gerechtfertigt ist. Leider scheint 
es gar nicht so einfach zu sein, dieses 
Buch käuflich zu erwerben. In allen Com- 
puterläden, wurde sofort abgewinkt: 
„Führen wir nicht! Bestellen wir auch 
nicht!“ Eine äußerst seltsame Konstella- 
tion, Ich kann nur empfehlen, das Buch in 
einer Buchhandlung zu bestellen. 
Unbedingt zu erwähnen bleibt, daß „Der C- 
16 in der Praxis” natürlich auch für alle Be- 
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hardware 


sitzer des Commodore 116 geeignet ist, 
obwohl der Titel dies verschweigt, und 
auch sonst nirgends im Buch diese Mög- 
lichkeit erwähnt wird. Für alle, die es im- 
mer noch nicht wissen oder glauben kön- 
nen: der C-16 und der C-116 sind bis auf 
das Gehäuse völlig identisch. 

Waldemar Raaz 


Titel: Der Commodore 16 in der Praxis 
Autor: David Lawrence 

Verlag: Commodore Sachbuchreihe 
Bestellnr.: ISBN 3-89133-018-9 





Wie viele Besitzer eines G-16/C-116 mö- 
gen sich Schon gefragt haben, warum das 
Einsteigermodell von Commodore keinen 
Userport besitzt? 

Für den G-116 ist die Frage nach einem 
Blick in das Innere des Gehäuses leicht zu 
beantworten: Es fehlt einfach an Platz. Da 
man nicht noch mehr in der Bauart von- 
einander abweichende Geräte wollte, hat 
man den C-16 eben auch „hinten ohne“ 
gebaut. 

Ein tiefer Blick in den Schaltplan auf den 
letzten Seiten der Bedienungsanleitung 
läßt jedoch hoffen. (Es gibt übrigens Be- 
dienungsanleitungen, in denen der 
Schaltplan und die Beschreibung des Ma- 
schinenmonitors fehlt. In diesem Fall soll- 
te der Händler aber in der Lage sein, ein 
anderes Exemplar zu beschaffen.) 

Ein weiteres Ärgernis ist. der magere Spei- 
cherplatz, der nur etwa ein Viertel des 
Speicherplatzes des C64 beträgt. Obwohl 
Betriebssystem und Basic im ROM blei- 
ben, sind trotzdem keine umfangreichen 
Programme möglich. 

Auch hier läßt sich jedoch preiswert Ab- 
hilfe schaffen, wenn man bereit und in der 
Lage ist, durch wenige Lötungen und Lei- 
terbahnenunterbrechungen den Rechner 
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Weitere Fachbücher für den 
Commodore 16/116: 


Froitzheim, D./$. Kausmann 
Effektiv & Kreativ mit dem Commodore Plus/4 


Arbeiten mit der eingebauten Software. Data-Becker, D. 
1985. 244 S. Kart. DM 49,00 
ISBN 3-890110-73-8 


PLUS/4 ROM-Listing 


Sachbuchreihe Bd. 6, Commodore, F. 1984. 280 S. 
Brosch. DM 59,00 
ISBN 3-891330-06-5 


nachzurüsten. 
So wurden folgende Erweiterungen an ei- 
nem 0-116 realisiert: 


1. Anschluß eines Versatile Interface 
Adapiers, der einen kompletten Einga- 
be/Ausgabe-Sektor auf einem Chip 
enthält (parallel/seriell, Interrupt- 
Steuerung ete.). Der Anschluß dieses 
Chips ist unabhängig von einer Spei- 
chererweiterung des Gerätes. 


2. Einbau einer auf Original-Zustand um- 
schaltbaren Speichererweiterung auf 
64 Kbyte, davon 60 Kbyte frei. 


3. Anschluß eines kleinen Interfaces, das 

den Gebrauch von zwei Datasetten er- 
laubt. 
Eine Datasette bleibt in LOAD-Position, 
d.h. die Play-Taste ist gedrückt, und die 
andere in SAVE-Position, d.h. die Re- 
cord- und Play-Taste sind betätigt. 


Bei den Befehlen LOAD bzw. SAVE 
startet automatisch die jeweils ent- 
sprechende Datasette. So kann man 
beispielsweise häufig benötigte Pro- 
gramme auf einer Endloscassette zu- 
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Commodore 16 mit 116 


Der Einsteiger-Computer mit Aufsteigerqualitäten. Kiehl, 
L. 1984. 164 S. DM 29,80 
ISBN 4-470-80481-8 


@ Scharnbacher, K. 
Lerne BASIC mit dem C 116/16/ plus 4 


Programmierte Unterweisung. Dt. Betriebswirteverlag, 
G. 1985, Ca. 212 S. Brosch. DM 32,80 
ISBN 3-88640-026-3 


Die Buchbesprechungen dieser Titel er- 
folgt in den nächsten Ausgaben von 
„Compute mit“, 


sammenstellen, welche dann im Gerät 
mit der LOAD-Position verbleibt. Das 
Abspeichern von Daten kann dann oh- 
ne Gasseitenwechsel geschehen..Das . 
Interface wird an den Cassettenaus- 
gang des Rechners angeschlossen und 
funktioniert ohne Eingriff in das Gerät. 
Dies ist eine preiswerte Alternative zur 
Diskette. 


In den nächsten „Compute mit“-Ausgaben 
werden in loser Reihenfolge Erläuterun- 
gen und Anweisungen mit Schaltplänen 
zum Bau der oben beschriebenen Erwei- 
terungen gegeben. Schreiben Sie uns bit- 
te, welcher Erweiterung Ihr größtes Inter- 
esse gilt. 


Da das Hardware-Angebot für dieses Sy- 
stem äußerst spärlich ist, möchten wir 
versuchen, auf diese Weise eine Lücke zu 
schließen. Für den Anwender tritt dabei 
eine erfreuliche Begleiterscheinung auf, | 


(denn er kommt so an billige Hardwareer- 


weiterungen und ist-nicht mehr auf die 
Angebate der wenigen Händlerbetriebe 
angewiesen. 


Michael Lausch 
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Dieses Maschinen-Programm erleichtert 
Ihnen die Fehlersuche in Programmen, da 
die eigentliche List-Routine des C-16/116 
wesentlich verbessert wird. 

Nach dem Abtippen ist der Basiclader mit 
RUN’ zu starten. Es wird automatisch an- 


iD REM EHRE 
13 REM # * 
2B REM # COMFORT-LIST # 
25 REM # BASICLADER # 
38 REM # STARTADRESSE # 
35 REM # SYS 1450 # 
40 REM # # 
45 REM # WRITTEN BY #* 
58 REM # GUNTER MASSAR # 
35 REM # # 
&2d REM BR 
83 8 


IFA=IATHENYS 


iBa 
185 
110 
115 
128 
125 
150 
135 
148 
145 
150 
155 


EHAR1,1,12,"": MONITOR 
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zum richtigen Umgang mit Ihrem 


gezeigt, wenn ein Data-Fehler vorliegt und 
in welcher Zeile er ist. Sind die Datas ohne 
Fehler, drücken Sie die ’RETURN-Taste‘ und 
schalten Sie Ihre Datasette ein. Jetzt wird 
das Maschinenprogramm abgespeichert. 


Nun kann es jederzeit zu einem im Spei- 
cher befindlichen Programm mit der Ein- 
gabe von ’"MONITOR‘ und ’L hinzu gela- 
den werden. Ist es geladen ’X' eingeben 
um zum Basic zurück zu kommen. 


Starten können Sie COMFORT-LIST mit 
’SYS 1630. 


Wird während dem Listen die ’CONTROL-Ta- 
ste‘ betätigt, stoppt der Listvorgang und 
kann durch Druck auf die 'COMMODORETa- 


SCNELR: FORK=1638T01738: READA: PDKEK „As IFK=173@THENSS 
5=5+As1L=L+1: IFL=18THENREADP: ELSENEXTK 
IFP< >STHEN9IB: ELSES=B: L=Q: NEXTK 


DATA162,105,142,6,3,162,6,142,7,3,738 
DATA96,166,209,,240,6,202,134,2089,76,176,1514 
DATA, 166,208, 288,19,173,67,5,56,233,1148 
DATA4,288,49,162,1,134,298,32,181,6,985 
DATA76,153,6,173,67,5,56,233,4,208, 981 
DATAB,32,181,6,134,288,76,176,6,173, 1200 
DATA&7 ,5,56,233,1,208,7,162,160,134,19033 
DATA209 ,76,176,6,173,67,5,56,233,2,1283 
DATA208,217,177,95,76,118,139,162,160,169,1513 
DATA255,133,210,198,210,208,252,202,208,245,2121,96 


Compute mib 





COMFORT-LIST 


ste‘ fortgesetzt werden. Wird die 'GOMMO- 
DORE-Taste‘ dauernd gedrückt, hat diese 
die gleiche Funktion wie beim normalen 
List. Drückt man die ’SHIFT-Taste‘, werden 
mehrere Zeilen gelistet. 


Die Anzahl dieser Zeilen kann man durch 
’POKE1698,0... 255° ändern. 


Wird die "CONTROL-Taste‘ ein zweites mal 
betätigt, schaltet sich GOMFORT-List wie- 
der ab und kann jederzeit beim Listen er- 
neut eingeschaltet werden. 


Diskettenbesitzer ändern in Zeile 100 die 
’1' in eine ’8‘ und schon kann COMFORT- 
List eingesetzt werden. 


D=PEEK (64) #256+PEEK (63) : CHAR1,8,18,"":PRINT"WEIDATA FEHLER IN ZEILE ’D'm":END 
SENECLR:SCHAR1,8,6, "WEBITTE RETURN DRUECKEN !ii" 
CHAR1,8,17,""s PRINT"S"3 CHR$ (34) ; "LIST/SYS163@" 35 CHR$ (34) 5" „1, B&SE ,D6&C5" 
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Berechnung einer Prüfsumme für 


Nachdem die Old- und Merge-Routine be- 
reits in der Zeitschrift „CPU“ veröffentlicht 
wurde und auf den Programmpaketen 
POK 1/85 und POK 2/85 angeboten wur- 
de, beschäftigen wir uns an dieser Stelle 
erneut mit diesem Thema. 





MC-Programme 















Dieses kurze Listing berechnet die Prüf- 11 „Eingabe der Adr. in Hex“:? So ist uns eine wesentlich vereinfachtere 
summe für Maschinen-Programme. Es 12 Input „Startadresse“:S$ und kürzere Programmversion dieser bei- 
sollte eigentlich bei jeder Programmie- 13 Input „Ziel-Adresse“;T$ den Routinen angeboten worden. 

rung in Maschinensprache angewandt 14 $ = DEG ($$) 

werden, da die Fehlersuche in solchen 15 T= DEE ITS) Hier entfällt das Eingeben der jeweiligen 
Programmen äußerst schwierig ist. Der 16 ForN=StoT Basic-Zeilen gänzlich und das bedeutet 
Profi und der Anfänger wissen um diese 17 R= R+Peek(N) Zeit- und Speicherplatzersparnis. 
Probleme und werden diese kurze Routine 18 Next N 

sehr schätzen. 19  ?,„Pruefsumme :”;R:End 





Ihnen als Programmierer müßten diese 
beiden Argumente eigentlich ausreichen, 
um sich nochmals näher mit diesen Routi- 
nen zu beschäftigen. 






Old- und Merge-Routine 
in wesentlich einfacherer Form: OLD-Routine 


















m Monitor Return 
M 0008 - Return 
Mer ge Routine >08 AO DI AB 91 2B 20 18 88 Retum 
>00E0 20 4B 88 20 93 8A AU 03 Return 
1 Monitor j Return > DDEB 70 DO 0 00 @ 00 00 Return 
2 M 0226 , Return 5 „QLD“, 1, 0008, 00E9 Return 
3 >0226 20 91 94 20 6B AB 38 Ab  Retum | ”OLD“ 1 Return 
>0O2E 20 EI 02 AA A5 2E EI 00 Return | Monitor Return 
>0236 AS A9 00 20 D5 FF 20 18 Return | [ ”QLD“, 1 Return 
>023E 88 20 48 88 20 93 8A 46 Return | x i Return 
>0245 03 87 00 00 00 00 00 0 Return | sy 216 Return 
4 $ ”Merge“, 1, 0226, 0248 Return 
5 Y ”Merge“, I Return mit <S ”Merge“, 1, 0226, 0248 > auf Cassette, 
6 Monitor en mit <S ”Merge“, 8, en en > auf Diskette. 
7 6 "Merge”, 1 Reiumn Startadresse, Zieladresse + 1 
8X Return 5, V = Verify 
s eı He Ret Vergleichen des Programms auf richtige Abspeicherung mit 
“ um < V ”Merge“, 1 > für Casseite, mit < V ”"Merge“, 8 > 
1. Sprung in den Tedmon-Monitor. EDS. 
2. Speicherbereich wird angewählt. Adr. Eingabe in Hex. -6. Für die Anwendung muß es vom Tedmon-Monitor aus gela- 
3. Die Inhalte des angewählten Speicherbereichs werden in den werden! (Vermerk auf Cassette wichtig!) 


4. 
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Hex angezeigt. 

Sie müssen nun mit den Bytes des MC-Programms über- 
schrieben werden. 

Am Ende jeder Zeile werden mit <’Retum > die geänderten 
Daten in den Speicher des Rechners übernommen. 

S = Save 

Abspeichern 


Compurs mi 


— 


SOG 


. Ladebefehl (L. = Load), von Diskette mit <L ”Merge“, 8> 
. Rücksprung in den Basic-Bereich. 

. Normales Laden des 1. Programms 

. Laden des 2. Programms, 


von Diskette mit < SYS 550,””,8> 
anstatt” ” kann der Progr. Name des 2. Programmseingefügt 
werden. 
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Dieser Programmbeitrag enthält verschie- 
dene Pokes für Listschutz, Saveschutz 
u.a. 
Wenn man POKE’s für Save- und List- 
schutz verwendet, ist es am sinnvolisten, 
diese gleich an den Anfang des Pro- 
gramms zu setzen. 
Die verwendeten POKE’s werden durch 
den ersten Programmstart aktiviert und 
durch einen List- oder Saveversuch aus- 
gelöst. Die Werte hinter den Kommastellen 
der Save-POKE’s sind gleich den Werten 
der List-POKE’s. 


„Bleibt“ oder „Stürzt" wird darauf hinge- 
wiesen, ob nun der Computer durch das 
Drücken der Stop-Taste angehalten wer- 
den kann, oder ob dies nur noch durch 
Drücken der RESET-Taste möglich ist. 
Am unteren Bildschirmrand wird ange- 
zeigt, welche POKE’s nun angezeigt wer- 
den. 

Nach Drücken der Taste „W“ werden die 
POKE’s weiter aufgelistet, bis „Tabellen-En- 
de“ zu sehen ist. 

Wird Taste „A“ gedrückt, führt der Compu- 
ter einen RESET durch. 





2 REM #EHHHHHBHIHIHHHIHIE HAN 

1 REM " "Die Bemerkungen hinter den POKES’s | Die Anfangsschrift wird durch Data-Zah- 

2 REM " POKE-TRICKKISTE " zeigen an, was nach. der Auslösung | len erzeugt, da diese einfacher als Grafik- 

> REM " passiert. Durch die Bezeichnungen | zeichen abzutippen sind. 

4 REM " COPYRIGHT 1985 BY " 

5 REM n u 

& REM " GUNTER MASSAR " 

7 REM " [U] 

8 REM HH 

9 COLOR1,1:3PRINTCHR$ 19) CHRS$ (19) =: CLRSSCNELR: COLOR@,2,4: COLOR4 ,2,4 

10 VOLB: FORK=18B8T0758STEP-25: SOUND1,K,1:NEXTK 

11 FORK=1T091:READA:POKEA ,81:NEXTKIPOKEB, 15: FORK=1TD22BB: NEXTK 

12 SOUND1 ,889,1@:SENCLR: COLORB,1:COLOR4,15COLOR1,8,4 

13 CHAR1,18,7,"POKE-TRICKKISTE FUER" 

14 CHAR1,13,13,"WCOMMODORE 168" 

15 FORK=1T020B0: NEXTK 

1& COLOR1,5,3:A$="#COPYRIGHT (C) 1985 BY GUNTER MASSAR" 

17 CHAR1 ,38,22,"#*":FORX=1T037:CHAR1,0,22,"" 

18 PRINTUSING "HH HH" MID (AS, 1, X) 

179 FORK=1T059: NEXTK:NEXTX 

28 FORK=1TO2200: NEXTK:COLORB,2,4:C0LOR4,7,5:C0LDOR1 ,1:SCNCLR: SOUND1 ,880,12 
. 21 CHAR1,19,3, "WLM-ISTSCHUTZ" 

22 CHAR1,198,7,"WSM-AVESCHUTZ" 

23 CHAR1,18,11, "WTB-IPS&TRICKS" 

24 CHAR1,19,15, "WWM-EITER" 

25 CHAR1,10,19, "WAR-BBRUCH" 

2& FÜR K=1T01208: NEXTK: CHAR1,7,23,"MBITTE TASTE DRUECKENS" : GOSUB167 

27 SCNELR: SOUND! ‚B2B,10 

28 CHAR1 , 0,22, ———————— . ad 

29 COLOR1,3,1: CHAR1, 1,23, "&L-ISTSCUTZE BER-AVESCHUTZ TB-IPSATRICKS" 

Z8 CHAR1,1,24, IEEN®-EITERE ISAB-BBRLUCH 

31 3 ones Bir PRINTwe 

33 PRINT=3PRINT" POKE774 ,164/POKE775,242" 

34 PRINT=:PRINT"” VERURSACHT -RESET-" : 

35 PRINT:PRINT" "SCOLORI,1 

34 PRINT:PRINT" POKE 774,08 ERSTE ZEILENNR. WIRD" * 

37 PRINT:PRINT" GELISTET/STUERZT AB" 5 

38 PRINT:PRINT" POKE 774,27 WERDEN WIRRE BEFEHLE" 
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39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
29 
sg 
51 
52 
53 
54 
s5 
56 
57 
58 
57 
&8 
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FRINT:PRINT” : GELISTET/STUERZT AB" 
PRINT:PRINT" POKE 774,50 WERDEN WIRRE BEFEHLE" 
PRINT:PRINT" GELISTET/BLEIBT" :GOSUB169 
PRINT=3PRINT" POKE 774,70 DAUERND WIRRE BEFEHLE" 
PRINT:PRINT" /STUERZT AB":GÜSUB149 
PRINT3PRINT" POKE 774,128 LISTET END/BLEIBT":GOSUB169 
PRINT:PRINT" POKE 774,148 BILDSCHIRM VOLLER" 
PRINT:3PRINT” STRICHE/STUERZT AB”: GDSUB169 
PRINT:PRINT" POKE 774,158 BILDSCHIRM VOLLER" 

PRINT: PRINT” END/STUERZT AB": G0SUB1&9 
PRINT:PRINT" POKE 774,158 WIRRES BILD/BLEIBT":GOSUB169 
PRINT:PRINT" POKE 775,288 BRINGT WIRRES BILD" 

PRINT" POKE 774,8 /STUERZT AB" :GOSUR167 

PRINT=PRINT" POKE 775,190 WIRRES BILD/STUERZT AB":60SUB169 
PRINT;PRINT" POKE 773,136 LISTET NUR ZEILENNR. ":GOSUB169 
PRINT:PRINT" POKE 4998,53 BLOCKIERT -LIST- 

PRINTSPRINT" VERHINDERT NEUSTART" : G0SUB169 
PRINT: PRINT" POKE774,11B/POKE775,139" 

PRINT: PRINT" HEBT LISTSCHUTZ AUF" 
COLOR1,1:605UB169: PRINTSPRINT=SPRINT" TABELLEN ENDE”: 601068 
SENELR: SOUND1 „829,10 

CHAR1, 2 22, nn 
COLORI, S,1:CHAR1,1,25, "WU W-ISTSCHUTZ WWS-AVESCHUTZE WTM-IPSKTRICKS" 
CHAR1, 1 „2a, E IINE-EITERE WAB-BBRUCH ” 
COLOR1,7,1:ePOKE2821 ,21:PRINT"B" 

PRINT:3PRINT" POKEB16, 154 /POKEB17 ,242"” 

PRINTIPRINT" VERURSACHT -RESET-" 
PRINT:PRINT:PRINT" POKE 98,8 BATASSETTE LAEUFT NICHT" 
PRINT=PRINT:PRINT" POKE 8,15 NORMALFUNKTION": :G05SUB167 
PRINT:PRINT" POKEBi&, 164 /POKEB16&,241" 

PRINT=SPRINT" HEBT SAVESCHUTZ AUF" 
PRINT=SPRINT:PRINT". TABELLEN ENDE": GOSUB149 

G0T07& 

SCNCLR: SOUND1 ‚E0@,1i@ 

CHAR 5, 22, nenn 
EOLORI „35,12 CHAR1,1,23, "WAM-ISTSCHUTZ WSR-AVESCHUTZ MI-IPSLTRICKEM" 
CHAR1, n 24," IENE-EITERM iSAB-ABBRUCH 

COLORI, 1:POKE2821 ,21:PRINT"E" 

PRINT3PRINT:PRINTEPRINT® POKE 155,0 STUERZT SDFORT AB" 
PRINTıPRINT:PRINT" POKE 153,3 NORMAL." 
PRINT=PRINT:PRINT" POKE 205,192 WIRRES BILD BEI -RUN-" 
PRINT:PRINT" /STUERZT AB" 
PRINT:PRINT=:PRINT" POKE 285,5 NORMAL": GOSUB169 
PRINT:PRINT: PRINT" WIRD IN DIE SPEICHERSTELLEN * 
PRINT:PRINT" 4277/4898/457/46 DIE VOR DEM " 

PRINT:PRINT" -RESET- 0. -NEW- VORHANDENEN WERTE" 
PRINT=PRINT" GEPOKT „SD KANN DAS PROGRAMM " 

EEE LEID" ZURUECK GEHOLT WERDEN !" . 

COLOR1, 7,1=:PRINT:PRINT:PRINT“ 

PRINT: PRINT" NACH -NEW- ODER -RESET- POKE 4998,19" : 
PRINT:PRINT" UND UNBENUTZTE ZEILENNR. BEINGEBEN" 
PRINT:PRINT" PROGRAMM IST WIDER VORHANDEN „ KANN” 
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188 
ı@1 
182 
103 
194 
105 
104 
107 
ıiu8 
197 
118 
111 
112 
115 
114 
115 
i1& 
117 
118 
117 
128 
ı21 
122 
125 
124 
125 
126 


99 PRINTIPRINT" 


PRINTSPRINT" 
PRINT:PRINT:PRINT" 
PRINT=zPRINT:PRINT"” 
PRINT: PRINT" 
PRINT=PRINT: PRINT" 
PRINT: PRINT:PRINT" 
PRINT:PRINT" 
PRINT=PRINT: PRINT" 
PRINT: PRINTEPRINT" 
PRINT:PRINT=PRINT" 
PRINT:PRINT:PRINT" 
PRINT: PRINT" 
PRINT" 

PRINT" 

PRINT" 

PRINT: PRINT:PRINT" 
PRINT:PRINT:=:PRINT" 
PRINT:PRINT.:PRINT" 
PRINT: PRINT: PRINT” 
PRINT: PRINT:PRINT” 
PRINT=:PRINT=PRINT" 
PRINT: PRINTSPRINT" 
PRINT:PRINT= PRINT" 
PRINT:PRINT=:PRINT" 
PRINT: PRINT=PRINT" 
PRINT: PRINT: PRINT" 
PRINT=PRINT:PRINT" 
PRINT=PRINT:PRINT" 
PRINT=PRINT=PRINT" 
PRINT=:PRINT:PRINT" 
PRINT: PRINT: PRINT" 
PRINT:PRINT=:PRINT" 


COLOR1,7,1: PRINTTPRINT:PRINT" 


PRINT=:PRINT=:PRINT" 
PRINT:PRINT” 
FRINT:PRINT:PRINT" 
PRINT:PRINT" 
PRINT=PRINTSPRINT" 
PRINT: PRINT" 
PRINT: PRINT: PRINT" 
PRINT:SPRINT=SPRINT" 
PRINT: PRINT" 
PRINT:PRINT=:PRINT" 
PRINT: PRINT" 
PRINT=PRINT:PRINT" 
PRINT=PRINT" 
PRINT: PRINT" 
PRINT=:PRINT:PRINT" 
PRINT:FRINT" 
PRINT: PRINT: PRINT" 
FRINT=:PRINT" 
PRINT: PRINT" 
PRINT" 

PRINT" 

PRINT" 

FRINT" 

PRINT" 
PRINT=SFRINT:FRINT" 
PRINT:PRINT" 
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JEDOCH NICHT BEARBEITET WERDEN "“ 
SONST STUERZT ES AB" 


"sCOLORI ,1:G05UB167 
POKE 1344,80 SCHALTET REPEAT DER" 
TASTEN AB" 
POKE 1344,128 NDRMAL FUNKTION" :GOSUB167 
POKE1345,X VERZOEGERUNG DER" 


REPEATFUNKTION DER TASTATUR": GOSUB167 


FEEK (198) TASTATUR ABFRAGE" :5GDSUB167 
FOKE 4996,1-255 BEI <RUN?,ERROR" 
POKE 4996,B NORMAL FUNKTION" : GOSUB159 
FPEEK (1) DATASSETTE ABFRAGE" 
2BU=AUS 

192=PLAY/REW. /F.FWD" 

208=PLAY+REC." 

216=STOERUNG" : SDSUB167 
POKE 295,ZEILENNR. POSISTIERT CURSOR":GOSUB169. 
POKE 65287,78 ERZEUGT STREIFEN" 
POKE 65297,8 NORMAL” : GDOSUB1&9 
POKE 45299,48 GRIESELBILD" 
POKE 652997,288 NORMAL" :GOSUB167 
POKE 65380,X WIRRES BILD" 
POKE 653200,18 BILD NORMAL” :6DSUB167 
POKE 65270,8 STUERZT AB" 

ECURSOR BLINKT": 6DSUB167 
POKE 65297,X VERSCH. TOENE":BOSUB169 
FOKE 63270,18 ERZEUGT "BREAK’" 
STUERZT AB":G05UB169 

POKE 65501,X BILDSCHIRMFARBE" : GOSUB169 
POKE 55305,X RAHMENFARBE." : GOSUB169 
POKE 45309,200 LAEST BILD LAUFEN": GOSUB1697 
POKE 65287,48 BILDSCH. SCHWARZ": GOSUB169 
sys 85529 ERZEUGT <RESET>":GOSUB149 


EEE mer EICHE TERN) 15 


PFOKE 2922,Z/POKE 2823,58" 


LINKE DBERE ECKE DES BILDFENSTERS" 


POKE 2021,2Z/POKE 2824,58" 


RECHTE UNTERE ECKE DES BILDFENSTERS" 


PRINTCHR& C1LYPICHRE IN” 


SCHALTET FENSTER AB" 


":EDLOR1,1:G0SUB169 
POKE 65284 ,PEEK (65286) AND237" 


SCHALTET BILDSCHIRM AUS": 605UB167 


POKE 45286 ,PEEK (45286) OR1&6" 


SCHALTET BILDSCHIRM EIN":G0OSUB167 


POKE2839,1-255 BLOCKIERT -CTRL-/-5-" 
BEIM LISTEN” 
NORMALFUNKTION" :505UB169 
POKE240,1-255 WARTET BIS EINE TASTE" 
j GEDRUECKT WIRD": GOSUB169 
PEEK (1347) ABFRAGE FUER" 
-SHIFT-/-CTRL-7/-COMMDODORE-" 
Ii=SHIFT" 
2=LCOMMGDORE" 
3=SHIFT+COMMODORE" 
A=CTRL" 
S=SHIFT+ETRL" £ 
6=C.BMMODORE+CTRL" : G0OSUB169 . 
FOKE1351,128 BLOCKIERT UMSCHALTUNG" 
VON GROSS- AUF " 


CSomputbe mik | 





werkstatt 


157 
168 
161 
162 
1653 
164 
165 
166 
167 
168 
167 
170 
171 
172 
173 
.174 
175 
176 
177 


PRINT=PRINT" 
PRINT=SPRINT" 
PRINT=PRINT:PRINT" 


PRINT:PRINT" 
PRINT: PRINT” 
PRINT=PRINT" 
PRINT=PRINT” 
PRINT:PRINT" 


A=PEEK (198) 
IFA=42THEN?27 
IFA=13THENG1 
IFA=Z2Z2THEN?78 
IFA=1BTHENSYS45529 
IFA=FTHENRETURN 
GOTO 167 





POKE1351,@ 
COLOR1,7,1:PRINT=:PRINT=PRINT" 
POKE19,5 SCHALTET -IMPUT-" 
FRAGEZEICHEN AUS . 
ABFRAGE MUSS JEDOCH NORMAL WERT " 
19,90 EINGEPOCKT WERDEN" 


G0S5UB169: PRINTSPRINT: PRINT" 


WINDOW-MANAGER 


KLEINSCHREIBEMDDUS" 
ODER UMGEKEHRT" 


NACH DER INPUT-" 


NORMALFUNKT ION" = GOSUB169 


Li] 


":COLOR1,1:605UB167 


Diese Routine ermöglicht den schnellen 
Wechsel von einem Window in das Nächste 





Laut Handbuch ist es möglich, durch die 
Befehle ESC-T und ESC-B Fenster auf 
dem Bildschirm des C-16 zu definieren. 
Jedoch ist es sehr umständlich, aus ei- 
nem Fenster in ein anderes zu gelangen. 
Für diesen Vorgang sind ellenlange ESC- 
Sequenzen nötig. Um die Umständlichkeit 
dieses Vorganges abzukürzen, schuf der 
Autor diese Routine, die es ermöglicht, oh- 
ne großen Aufwand von einem definierten 
Fenster in ein anderes zu springen. 


Bei diesem Windowmanager handelt es 
sich um einen Basic-Lader, der Datazeilen 


42 


liest und die Werte im Tape-Puffer ablegt. 
Gestartet und initialisiert wird er durch 
$YS819. Durch diesen Aufruf werden die 
16 definierbaren Fenster auf Gesamtgröße 
gestellt (wie ESC-N ohne SCNCLR). Will 
man nun ein Fenster definieren, so 
schreibt man DEF POS n,x1,y1,x2,y2. n ist 
die Fensternummer und erlaubt Werte von 
1 bis 16. x1,y1 ist die Spalten-Zeilen-Posi- 
tion links oben und x2,y2 entsprechend 
rechts unten. Diese Parameter haben fol- 
gende Grenzen: Oo&x1<=x2<41 und 
I<yi<=y2<26. Werden die Grenzen 
nicht eingehalten, so wird ILL. QUANTITY 


Compure mi 


TABELLEN ENDE":60T0168 


DATA3S359 , 3360, 3361 ,3362,3398,3403,3438,3443,3478, 3493, 3518 +>323, 
DATASSS8,3557,3560, 3561 ,3562,3598, 3639,3678,3718 
DATA3357 , 3368, 3369 3370,3406, 3411,5446,.3451,3496, 3491 „3526, 3531 , 3566 ,3571 
DATAS6U6,35611,3644 ,3651 , 3686 ,3691,3727,3728,3729,3730 
DATA3374,3379,3414,3418 ‚3454. ,3457, 3474,3496,3354, sa ,59374,5373 
DATAS&14,3616,3654, 3637 ,3674 ,3678,3734,3739 
DATAS382 ,3393 ,3394 „33985, 3386 , 3397 , 3422 ,3462,3592,3542, 3582, 3583 ,3584,3585 
DATA3S84,3587, 3622,3662,3702,3742,3743,3744,3745,3746,3747 







ERR. gemeldet. 

Ein Beispiel: DEF POS 3,2,6,38,19 definiert 
Fenster 3 als ein Feld von Spalte 2/Zeile 6 
bis Spalte 38/Zeile 19:So werden nun die 
Fenster definiert, aber noch nicht aufgeru- 
fen. Dazu benutzt man den Befehl POS n, 
wobei n wiederum die Fensternummer 
darstellt, 
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118 REM* 
122 REM# 
130 REM* 
148 REM* 
150 REM* 
164B REM#* 
1798 REM# 
1828 REM* 
190 REM* 
2Da REM* 
zıa REM#* 
228 REM* 
250 REM* 
249 REM* 
258 REM# 
24 REM* 
770 REM#* 
288 REM* 
298 REM* 
320 REM* 
3128 REM* 
Ss20 REM# 
358 REM* 
348 REM# 
3580 REM* 
368 REM#* 
37@ REM» 
338 REM* 
398 REM* 
408 REM* 
418 REM# 
428 REM#* 
438 REM* 
448 REM* 
458 REM* 
468 REM#* 
478 REM* 
4898 REM* 
499 REM* 
SDO REM* 
518 REM* 
511 REM* 
5278 REM* 
538 REM%* 
548 REM* 
542 REM# 
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Mit POS 5 z. B. wird ein Fenster aufgeru- 
fen, welches zuvor mit DEFPOS5,.... defi- 
niertworden ist. Nach dem Aufruf wird in- 
nerhalb des neuen Fensters noch ein HO- 
ME ausgeführt, damit man einen definier- 
ten Ausgangspunkt hat. BeiPOS n istauch 
0 (Null) für n zugelassen. Durch den Be- 


WINDOW MANAGER 
VERSION 1.03 FUER C16 & CD 
VERWALTET 1& FENSTER UEBER 
DEF POS N,X1,Y1,X2,Y2° 
ZUR DEFINITION DER BROESSE 
UND "POS N’ ZUM AUFRUFEN 
N IST DIE FENSTERNUMMER; 
(X1,Y1) DIE POSITION LINKS 
OBEN; (X2,Y2) DIE POSITION 
RECHTS UNTEN; N IST ZU- 
LAESSIG VON 1 BIS 16 
(AUSNAHME: POS 8 DEFINIERT 
DEN GESAMTEN SCHIRM ALS 
FENSTER); GRENZEN FUER 
DIE KOORDINATEN: 
B<Xi<al; D<V1X26 
Ki<=X24415 Vi<=Y2<265 
NACH EINEM AUFRUF DURCH 
"POS N’ WIRD EIN HOME’ 


AUSGEFUEHRT. 


IM APRIL’85 VON 


WOLFGANG W. WIRTH 


fehl POS 0 z. B. wird ein ESC-N ohne | Modus verursachen sie einen Syntax-Er- 
SCNCLR ausgeführt, der gesamte Schirm | ror. Da die Routine im Tape-Puffer liegt, sei 
also als Fenster definiert. gesagt, daß keine Daten auf Band ge- 
Das gesamte ML-Programm benötigt ca. | schrieben oder gelesen werden können. 
130 Byte und noch einmal ca. 70 Byte als | Für den PLUS/4-Anwender solite auch die 
Variablen. Die Befehle dürfen nur inner- | RS232-Schnittstelle tabu sein, da sonst 
halb eines Programms stehen, im Direkt- | die Fenster-Daten futsch sind. 


108 REM THREE 


EEE KK EFF FF Eee EEK FF FI NK FF KK FF FE Ei € 


GSompube mik 





545 REM%* 

544 REM# HELLWIGSTRASSE 3 
545 REM* 

546 REM* 6600 SAARBRUECKEN 
547 REM# 

548 REM* TEL: 96581-616970 
s5a REM# 

et REMIHHURUHUREN EHEN RN 
570 REM 

Ss8B FOR I=8197 TO 7977:READ J# 

598 POKE I,DEC (JS) :NEXT:SYS B819:END 
608 DATAAB,48,092,89,BD0,E2,85,77,E6,05 
&10 DATACA,10,02,A2,03,88,10,F2,A2,BF 
6208 DATAAQB,03,8E,08,03,80,09,03,60,20 
630 DATADS,9D,CA,EB,28,78,F7,4C,10,77 
648 DATA2B,D8B,9D,CA,E@,19,88,F5,690,20 
658 DATAB1,7D,EB,11,BB,ED,8A,0A,BA,68 
668 DATA29,64,03,A8,A2,83,B9,E2,03,97D 
678 DATAES,B7,C08,CA,18,F6,20,90,DE,4C 
688 DATAFA,DI,20,64,03,F8,CE,8D,2%,04 
698 DATA22,50,03,8E,28,04,28,5B,05,8E 
708 DATA27,04,20,50,053,EC,28,04,90,B7 
718 DATABE,27,04,28,5B,83,EC,27,04,90 
728 DATAAC ,BE,26,04,42,03,AC,2A,04,BD 
750 DATA26,24,99,E2,83,C8,CA,19,F6,68 
748 DATA20,73,24,20,CE,23,40,DC,8B,20 
758 DATA77,04,40,25,8C,F0,EE,C7,B?,FB 
76@8 DATA9B,C9,76,D0,F@,20,73,04,097,B? 
778 DATAFO,A6,4C0,9D,9A,27,20,00,18 


E BE Ze Ze Ze Zu Zu 3 





1B REM WINDOWMANAGER — DEMO 


22 REM FENSTER DEFINIEREN 


38 DEF POS 1,3,3,6,1@ 

40 DEF FOS 2,798,8,25,12 

SB = 

&8 POS 1:REM 1. FENSTER AUFRUFEN 

&6 FOR I= 1 TO 89:PRINT RND(1)5:NEXT 
76 : * 

82 POS 2:REM 2: FENSTER AUFRUFEN 

86 FOR I= i TO 8B:PRINT RND{1):NEXT 
98 GOTO 60 





‚werkstatt 
AR AG 


Das folgende Programm dient allen Programmierern als Unter- 
stützung im Umgang mit den Grafikbefehlen des G-16/116. Daß 
man mit Hilfe dieses Systems eine hervorragende Grafik erzielen 
kann, dürfte mittlerweile jedem Anwender bekannt sein. Oft wis- 
sen die Anwender aber nicht, mit welchen Befehlen die Grafik zu 
ermöglichen ist. Hier haben Sie die Möglichkeit, anhand des Pro- 
grammes die Befehle zu studieren und bei selbsterstellten Pro- 
grammen einzusetzen. 





13 REM KHRHNNEHEHRHRHRRHH NN HH RN IH HH HR 
=@ REM 
=5 REM 
38 REM 
25 REM 
40 REM 
45 REM 
sa REM 
55 REM RRMUHRSHHRHHRHR HH NR HENKE HH HR RN 
65 GRAPHICZ,1:COLORB,1:COLOR4,7,3 

&5 FORA=RTOI7?7 STEF4 

7a BOX3,162,188,1,109,A 

75 NEXTA 

am FORX=-BTOISBR: NEXTX 

BG REM HEHREHRHREEH EHER TH NT ERICH HH TR HUN NR 
GZ REM a4 ZIEL FERNROHR KERHH 
95 REM KR KRRRHRRRR RHEIN 
188 COLOR1,2:C0OLOR4,1:GRAFHICL „1 

1128 CIRCLE1,169,129,28 

115 CIRCLE1,169,100,58 

1283 CIRCLE1,1628,108,98 

125 DRAW1,152,189T0180,12 

132 DRAW1,258,18@T079,100 

125 FORJ=BTO1SBO = NEXT 

1423 REM KUREN IH N HN I HH ER IH ER 
145 REM #### MEHR-FÄRBEN-GRAFIK AARH 
152 REM KUREN TR FEN HH HN FR 
155 REM xxx 1.GRAFIE SRH 
160 COLOR2,7,3:GRAPHIC 3,1 

165 CIRCLE2,72,78,9,9,5: PAINT2,99,78 

172 FORA=@TO178STEFB: COLORS, 6,5 


VERSCHIEDENE GRAFIE 
BEISPIELE 


VON F.LOHMANN 


een 
Re 





175 
132 
185 
179 
195 
2a 
205 
210 
=15 
228 
223 
235 
242 
245 
2352 
255 
262 
265 
278 
275 
288 
285 
298 
295 
RAuln) 
>05 
>18 
515 
>28 
32 

228 


EL 
339 


>49 
345 
>58 


359 


S60 


393 
378 


75 


aa ee | 
392 
385 
378 
>95 
408 
495 
412 
415 


EOXS,88,109,180,55,A:NEXTA 
FORA=BTO178STEP8: COLOR2,5,3 
BOX2,58,1808,130,55,A:NEXTA 
FORJ=BTO1SRB : NEXT 

REM #838 2.GRAFIE RR 
SCNELR 

FORA=BTOYSSTEPB: COLOR? ,,6,2 

CIRCLE2 „88, 129,A,A,,, 7,120: NEXTA 
FORA=DTOI1SBB:NEXTA 

REM ###r*#r** 3,GRAFIE SEHEN 
SENELR: COLOR2,7,3:COLOR4,6,3 
FORA=-BTOFASTERES 
CIRCLE2,88,100,A,A,,,;,98:NEXTA 
FORX=BTO15B08 2: NEXT X 

REM ara 4, 5RAFIK FRARHFFERE 
SCNELR:COLORZ,12,3:CDLOR4,7,3 
FORA=BTU1BDSTEFB 
EOX2,88,132,88,55,A:NEXTA 
FORA=BTOL7ASTERB 
EOX3,139,192,38,18,A:NEXTA 
FORX=BTO15@D =: NEXT X 

REM xt 5,.GRÄAFIK KERERRHHHRERHRH 
COLOR1,8,4:6RAFHICL „1 
FORA=-SBTOIUASTEPA 
CIRCLE1,1698,1290,A,A, 34,45 

NEXT A 

FORX=9TDO3BSTER4 
CIRECLE1,38,30,X, X, 43 3 3743: NEXTX 
FORX=ITOZBSTEF4 
EIRCLEI1, 2998,38, %2X2 3, 3 45:2 NEXTX 
FORX=YTDSBSTER4 
CIRCLE1,50,170,X,X4 43,439: NEXTX 
FORX=FTOZRBSTERA 
CIRCLE1,278,170,X,X4 443349: NEXTX 
CHAR1,17,9," E 16 “ 
CHAR1,17,11,"GRAFIE" 

CHAR1,17,13," IST " 

CHAR1,16,15, "EINFACH" 

FORA=ATO1652U8: NEXTA 

REM ###x%##%* 5. GRAFIK RHANRHERER 
SCNELR 

FORA=14BTD1SZSTEPS: FORX=IBTGL1BSSTERS 
CIRCLE1,A,108,X: NEXTX,A 
FORX=-ROTOLSDE: NEXTK 

REM ######% 7.GRAFIE KERKERKERR 
SCNELR: FORA=SBTOSGRBSTERS 
EOX1,182,78,A,10,A:NEXTA 
FORA=BTO1SRAD: NEXTA: GRAFHICO 


he Ausnutzung der Windowmöglichkei- 
ten). SOFTSCROLL beinhaltet beide ver- 
mißten Befehle und ist sogar in der Lage, 
eine ruckfreie (soft) Verschiebung vorzu- 
nehmen. Nun ist eine Bewegung in alle 
vier Himmelsrichtungen leicht program- 


SOFTSCROLL ist eine hervorragende Erwei- | Bildschirmsimuliert, unmöglich, etwaeine | mierbar. 

terung für Ihr System. Da der C-16/116 | Bewegung darzustellen. Dies ist aber bei | Tippen-Sie bitte einfach das Basic-Lade- 
nicht über Befehle wie etwa ’LEFT‘ oder! einer großen Anzahl von -Spielen von | programm (siehe Listing) ab. Es erzeugt 
"RIGHT" verfügt, ist es für den Ersteller ei- | Wichtigkeit, da die Hardware sonstnurein | ein reines Assemblerprogramm in dem 
nes Programms, das einen erweiterten | Scrollen nach oben oder unten zuläßt (sie- | Bereich $3F5A-$3FEE. Dieses wird abso- 


a | BE Compute mib 
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ht gespeichert und kann mit LOAD 
"SOFTSCROLL,8,1 platzsparend an den obe- 
ren Teildes Basicspeichers gelegt werden. 
Als erstes wird jetzt die Initialisierungs- 
routine mit SYS 16218 aufgerufen. Sie 
schaltet das Bildschirmformat auf 38 Zei- 
chen pro Zeile um und schützt das As- 
semblerprogramm vor ungewolltem 
Überschreiben mit Variablen oder Text. 
Dann kann jederzeit ein Aufruf der eigent- 


lichen Hauptroutine erfolgen. Dies ge- 
schieht in der Form $YS 16247, Parameter. 
Der Parameter kann die Werte 0 oder I ha- 
ben, andere werden mit einem SYNTAX 
ERROR abgelehnt. Für ein Scrollen nach 
links verwenden Sie bitte Parameter 0, für 
scrollen nach rechts Parameter 1. 

Nun erfolgt eine Verschiebung um genau 
einen Punkt in die gewünschte Richtung. 
Dies entspricht genau einem Achtel der 


werkstatt. 


Buchstabenmatrix. Hierfür verantwortlich 
zeichnen die Bits 0-2 des Ted-Registers 7. 
Bei dem achten Aufruf der Routine wird 
der Originalzustand wieder hergestelit 
und dann in die Hardscrollroutine ver- 
zweigt. Diese kann (aus Zeitgründen) 
auch direkt aufgerufen werden: SYS 16275 
(links) oder SYS 16323 {rechts). Jetzt entfällt 
aber die gleitende Bewegung, die Ver- 
schiebung wirkt ruckartig. 


@ REM RBBRHRRISHHRHHIBIEIHIHIHIBIBIHIHRIHHBIHHIRIHIIHIHIHHHIHIARIRIETHIETEIHE TEN ENTENENIEEEENEH NEN IHN 
i REM *# * 
Z REM *# SEROLL-RODOUTINE FUER DEN COMMODORE C16/116 * 
3 REM * * 
4 REM * BELEGTER SPEICHERBEREICH : VON $3FSA BIS $35FEE * 
5 REM * LADEN DES ASSEMBLERCODES : LOAD"SCROLL $3FSA",B,1 BZW. „1,1 * 
& REM * START 1) SYS 16218 INITIALISIERUNG = %* 
7’REM * 2) SYS 16247,X SCRÜLLAUFRUF MIT PARAMETER * 
8 REM * i & " * 
9 REM * WRITTEN 92.86 BY dUERGEN oTTO * 


12 REMHRHBRHBHRSERRBBIEIRRIRHIOHIHHHSHHHEHRISHRRIETESHITIIRIEIIHIIBISIIHHIIBIHIRIR OHREN HIER 


11 : 
12 POKES1,87: POKES2 ,53: POKESS,89: POKES6 „63 
13 : : 
188 DATA AD,B7,FF = REM LDA ##FF97 s ACCU MIT TEDREGISTER #97 LADEN 
ıi81 DATA 29,F7? ı REM AND ##+7F ı BIT 3 LOESECHEN 
182 DATA 589,07,FF =: REM STA $FF97 ; AUF 38 ZEICHEN UMSCHALTEN 
183 DATA A9,597 ı: REM LDA #857 ; LO-BYTE PROGRAMMANFANS 
184 DATA 85,33 : REM S5TA #533 ; STRINGSSPEICHERENDE HERABSETZEN 
105 DATA 85,37 : REM STA #37 ı BASICSPEICHERENDE HERABSETZEN 
1935 DATA AF,SF : REM LDA #$3F + HI-BYTE PROGRAMMANFANG 
1097 DATA 85,354 : REM STA $34 ; STRINGSPEICHERENDE HERABSETZEN 
188 DATA 85,38 »: REM STA #38 s BASIESPEICHERENDE HERABSETZEN 
187 DATA AY,808 ı REM LDA #309 ; LO-BYTE SCHIEBEADRESSE 
118 DATA 85,049 : REM STA $D8 ; LO-BYTE INITIALISIEREN 
i11 DATA AY,DC : REM LDA #308C ; HI-BYTE SCHIEBEADRESSE 
112 DATA 85,D1 REM STA Di ; HI-BYTE INITIALISIEREN 
113 DATA 48 : REM RTS ; INITIALISIERUNGSROUTINE BEENDET 
114 DATA 29,D8,9D =: REM USR $9DD8 ;s GETCOM + GETBYT 
115 DATA EB, : REM CPX #308 ; TEST AUF PARAMETER 8 
11& DATA F0,27 :s REM BEQ #3F85 ı VERZWEIGUNG SCROLL LINKS 
117 DATA EB,Bi : REM CPX #$01 ; TEST AUF PARAMETER 1 
118 DATA FB,S1 : REM BED #3FB3 ; VERZWEIGUNG SCROLL RECHTS 
117 DATA 4C,A7,94 =: REM JMP #94A9 3 VERZWEIGUNG ’SYNTAX ERROR” 
128 DATA AD,O7,FF » REM LDA $FF97 "s ACCU MIT SCHIEBEREGISTER LADEN 
121 DATA FB,84 : REM BEQ $3F8E ; WENN GRENZE ERREICHT,DANN SCROLL SCREEN 
122 DATA CE,97,FF : REM DEE #FF37 ; SONST SOFTSEROLL LINKS 
123 DATA 48 : REM RTS . ; ROUTINE SCROLL LINKS BEENDET 
124 DATA A9,07 : REM LDA #97 z STARTWERT IN ACCU LADEN 
125 DATA 8D,907,FF = REM STA $FF97 ; UND IN SCROLLREGISTER SCHREIBEN 
126 DATA A2,19 : REM LDX #817 5 ZAEHLREGISTER AUF 25 ZEILEN SETZEN 
127 DATA AB,BB »: REM LDY #$00 s SPALTENZAEHLER AUF NULL SETZEN 
128 DATA B1,DO =» REM LDA ($D8) ,Y ; LINKEN BILDSCHIRMRAND IN ACCU 
129 DATA 85,D2 : REM S5TA #£D2 3 UND ZWISCHENSPEICHERN 

.13@ DATA CE : REM INY ; EINE SPALTE WEITER NACH RECHTS 
131 DATA B1,DB : REM LDA 1$D2),Y 3; NAECHSTES ZEICHEN IN ACCU LADEN 
132 88 z REM DEY ; EINE SPALTE NACH LINKS RUECKEN 


DATA 
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133 
154 
135 
15& 
137 
158 
1537 
130 
i41 
142 
1453 
144 
145 
14& 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
180 
161 
i&2 
163 
154 
165 
166 
167 
158 
169 
178 
171 
172 
175 
174 


177 
178 
179 
1838 
181 
182 
185 
184 
185 
186 
197 
198 
1897 
190 
191 
192 
193 


TESTE SPALTENZAEHLER AUF SPALTENENDE 
WENN NEIN,DANN ZUM NAECHSTEN ZEICHEN 


ZEILE 25 ERREICHT ? BEI NEIN WEITER 


SPALTENZAEHLER AUF RECHTEN RAND STELLEN 


SPALTENANFANGS NICHT ERREICHT, WEITER 


ZEILE 25 ERREICHT. ? BEI NEIN WEITER 
ZURUECK ZUR INITIALISIERUNG 


SONST HI-BYTE DER S.ADRESSE ERHOEHEN 
ZEILENZAEHLREGISTER UM 1 WEITERSETZEN 


DATA 91,D8 : REM STA ($DD),Y ; UND IN NEUER POSITION SPEICHERN 
DATA C8 : REM INY 5 WIEDER ZURUECK NACH RECHTS 

DATA C9,28 = REM CPY #28 5 

DATA DB,FS : REM BNE $3F9B ; 

DATA AS,D2 2 REM LDA $D2 ; SONST WEGBESCHOBENES ZEICHEN RETTEN 
DATA 88 ı REM DEY 3 AUF RECHTEN RAND POSITIONIEREN 
DATA 91,DB s REM STA ($DD),Y ; UND DORT ANFUEGEN 

DATA 20,E1,3F 2 REM JSR $3FEi ; EINE ZEILE WEITERZAEHLEN 

DATA DO,ES = REM BNE $3F95 ; 

DATA AC,6E,3F = REM JMP $3F6E ; FERTIG, ZURUECK ZUR INITIALISIERUNG 
DATA AD,U7,FF : REM LDA $FF97 5 ACCU MIT SCROLLREGISTER LADEN 

DATA 19,97 : REM CMP #407 ;5 TEST AUF AEUSSERE GRENZE 

DATA F@,24 ı REM BEQ $SFBE 5 WENN ERREICHT, DANN SCROLL SCREEN 
DATA EE,97,FF s REM INC $FF97 ;s SONST SOFTSCROLL RECHTS 

DATA 60 : REM RTS 5 ROUTINE SOFTSCROLL RECHTS BEENDET 
DATA A9?,00 : REM LDA #90 5 SCROLLREGISTERLOESCHUNG VORBEREITEN 
DATA 8D,07,FF : REM STA $FF97 3 UND REGISTER ZURUECKSETZEN 

DATA A2,19 : REM LDX #819 5 ZAEHLREGISTER AUF 25 ZEILEN SETZEN 
DATA AB,28 = REM LDY #$28 ; 

DATA B1,D® : REM LDA ($D@,Y 3; RECHTEN BILDSCHIRMRAND IN DEN ACCU 
DATA 85,D2 : REM STA $D2 ; UND ZWISCHENSPEICHERN 

DATA 88 2: REM DEY ; EINE SPALTE WEITER NACH LINKS 
DATA B1,D® : REM LDA ($DD,Y 3; NAECHSTES ZEICHEN IN DEN ACCU LADEN 
DATA C8 : REM INY s EINE SPALTE NACH RECHTS RUECKEN 
DATA 91,D8 : REM STA ($D@),Y 5; UND IN NEUER POSITION SPEICHERN 
DATA 88 : REM DEY ; WIEDER ZURUECK NACH LINKS 

DATA D@,F7 : REM BNE $3FCB r 

DATA A5,D2 : REM LDA $D2 ; WESGESCHOBENES ZEICHEN RETTEN 

DATA CB z REM INY 5 AUF LINKEN RAND POSITIONIEREN 

DATA 91,D8@ z REM STA ($DO),Y 3 UND DORT ANFUEGEN 

DATA 20,E1,3F = REM JSR $3FE1 ; EINE ZEILE WEITERZAEHLEN 

DATA D8,E7 : REM BNE $3FC5 s 

DATA 4C,6E,3F = REM JMP $3F6E ; FERTIG, 

DATA A5,D® : REM LDA $D® 3 LO-BYTE DER SCHIEBEADRESSE LADEN 
DATA 18 : REM CLC 3 ADDITION VORBEREITEN 

DATA 697,28 : REM ADC #$28 ; UM 48 ( EINE ZEILE ) ERHOEHEN 

DATA 85,D8 = REM S5TA $Da ; UND WIEDER ZURUECKSCHREIBEN 

DATA 90,02 : REM BCC $3FEC ; WENN WERT <{ 255 DANN WEITER 

DATA Es,Di = REM INC $Di 3 

DATA CA 2 REM DEX 5 

DATA 60 : REM RTS 5 UNTERROUTINE ZUENDE, ZURUECK 


REM EINLESEN DES MASCHINENPROGRAMMS 


FOR 


IF B=20537 THEN 190 : 


PRINT 
PRINT 
PRINT 
END 

PRINT 
PRINT 
PRINT 


I=-2 


TO 147 


READ A# 

A=DEC {A$) 

B=B+A 

POKE I+15218,A 
NEXT I 


REM O.K. 

"Kl SIE HABEN EINEN FEHLER BEIM ABTIPPEN” 
"N DER DATAWERTE GEMACHT.BITTE KORRIGIEREN" 
"S SIE DIE ZEILEN 1988 BIS 173.” 


"G DAS ASSEMBLERPROGRAMM WIRD JETZT" 
"M ABGESPEICHERT.LEGEN SIE BITTE EINE" 
"a DISKETTE EIN.DRUECKEN SIE EINE TASTE." 


GETKEY A$ 


Compube mib 


Schon gewußt... ? 


‚Nach dem. Einschalten sind 
„die Funktionstasten F2 & F5 
. mit DLOAD” bzw. DSAVE” be- 


legt. Wenn Sie nun vor dem 
Drücken ‚dieser beiden Ta- 


‘sten die ESC-Taste betätigen, 
erscheint an den Anfang der : 
aktuellen Zeile. der Befehl 
LOAD“ ünd SAVE“. Dadurch 
sina diese Tasten auch für 
den: Kassettenbetrieb nutz- 
bar. ; 
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174 5YS5S 43115 "SOFTSCROLL",8 : 

195 POKE 38,98 : FOKE 39,63 
‚196 SYS 65496 

197 


san „i 


REM DATASTTE : 
: POKE 2035,238 : 


PRINT"K DAS PROGRAMM IST ABGESPEICHERT." 


198 PRINT " BITTE LADEN SIE ES IN ZUKUNFT MIT =“ - 
179 PRINT "SB BLOAD "SOFTSCROLL’,„8,1 BZW „... „1,1M" 
za0 PRINT "® DAS ENDE DES BASICSPEICHERS IST NACH" 
281 PRINT " EINMALIGEM AUFRUF VON SYS 14218 GEGEN" 
202 PRINT " UEBERSCHREIBEN GESCHUETZT.” 
2053 PRINT '"W AUFRUF DER SCROLLROUTINE = SYS 16247,X" 
204 PRINT TAB(18) "1) SCROLL LINKS : Bl" 

285 PRINT TAB(iB) "23 SCROLL RECHTS : Ka" 

2864 PRINT "EB VERWENDETE ZERDPAGESPEICHERSTELLEN a" 
' 2907 PRINT TAB(tıia) "1) DO = !208" 

288 PRINT TAB(t1B) "2) %Di1 = !209" 
207 PRINT TAB(1®) "3) %D2 = !212" 


ligatabelle 


Mit Hilfe dieses Programmbeitrages kann 
man auf einfache Weise Sportligatabellen 
erstellen und diese dann ohne große Mü- 
hen auf den aktuellsten Stand bringen. 
Nach dem Programmstart mit „RUN“, er- 
folgt zuerst eine kurze Anleitung und dar- 
an anschließend eine Menuetabelle, wo 
man unter folgenden Operationen wählen 
kann: 3 


Modul 1: Eingabe der Tabelle 


Mit diesem Modul kann man jede beliebi- 
ge Sportligatabelle bis maximal 20 Mann- 
schaften eingeben. Achten Sie darauf, daß 
im Programm zuerst die erhaltenen Tore 
einzugeben sind {normalerweise zuerst 
die geschossenen Tore!) Die Begründung 
dafür liegt in der Programmierung des 
Sortiermoduls. 
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POKE 2036, 63 3 


Programme 


POKE 2834,38 


Erstellen sie Ihre eigene aktuelle 
Bundesligatabelle! 


Modul 2: Speichern der Tabelle 


Hier muß man eine Nummer und einen 
Namen für die Datei eingeben, „PLAY“ 
und „RECORD“ drücken, und schon 
wird die Tabelle gespeichert. 


Modul 3: Laden. der Tabelle 


Hier sind ebenfalls die gleichen Informa- 
tionen einzugeben. Anschließend ist die 
Taste „PLAY“ auf der Datasette zu drük- 
ken - die Tabelle wird geladen. 


Modul 4: Tabelle aktualisieren 


Man gibt die erzielten und die erhaltenen 
Tore jeder Mannschaftein, und schon wird 
die Tabelle auf den neuesten Stand ge- 
bracht. 


Computbe mib 


Modul 6: Tabelle ändern 


Mit Hilfe dieses Moduls kann man eventu- 
ell auftretende Fehler bei der Eingabe kor- 
rigieren. Dies geschieht folgendermaßen: 


Man gibt den Tabellenplatz der betreffen- 
den Mannschaft und die Kennziffer des 
falschen Tabellenwertes (also z.B. Anzahl 
der Spiele, Anzahl der Siege etc.) ein. Die 
bereits erwähnten Kennziffern werden 
vorher in einer Tabelle zur Auswahl ausge- 
geben. 


Modul 7: Arbeit beenden“ 


Mit der Kennziffer beendet man den Pro- 
grammablauf. 

Außerdem enthält dieses Programm, wie 
bereits erwähnt, ein Sortiermodu!. 
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programme 


2 REN SERBIEN 

3 REM # * 

4 REM * LIGATABELLE * 

SREM# .  em—— * 

a REM * #* 28 FOR I=8 TOD & 
TREM * WRITTEN BY STEFAN MESSNER # 38 READ MAS(I),KZ$CI) 
8 REM + E * 40 1L(IY=35-LENIMAFLI)) 
9 REM * RATZENDORFERSTR. 9 * Sa NEXT I 

19 REM* A-9853 MARIA SAAL * ad FOR I=B T0 7 

11 REM#* TEL.. 842237378 (2378) * 7/@ READ BI#$(I) 

12 REM NEUEN TEN FR 88 NEXT I 


s28 FRINT"I"SPRINT"","I- URZE #NLEITUNG" 
3518 PRINT'"BISKT-.IT DIESEM "ROGRAMM KOENNEN SIE EINE" 
522 PRINT"BELIEBIGE |_IGATABELLE ERSTELLEN UND SIE STAENDIG AKTUALISIEREN.” 


5358 PRINT’WEISSUS EINEM ".ENUE WAEHLEN SIE DIE VERSCHIEDENEN T"FERATIONEN 
AUS." 

348 GUSUB 22800 Sa FRINT MAF(TT); 

358 DIM 5(25,18) s78 FOR FP=1 TO L(TT) 

368 DIM 5$125,180) 538 PRINT"."53 

>78 DIM M$(25) 578 NEXT PP 

saß REM Hau PRINT "I’KZFCTND 

51a PRINT"L." j &1B8 PRINT 

328 PRINT"" ,„"I.ENVEAUSWAHLE" 628 NEXT TT 

348 PRINT=PRINT:PRINT 632 PRINTER | ITTE WAEHLEN #IE AUS 
558 FOR TT=8 TO 6 4m GETKEY AWsF 


650 IF Auf="1" THEN 1B00: ELSE IF Alus="2" THEN 3000: ELSE IF AW$="3" THEN 40898 
668 IF Au$="4" THEN SBOB: ELSE IF Aus="5" THEN 6020: ELSE IF Als="&" THEN 7008 
678 IF AW$="7" THEN END: ELSE 649 

1888 PRINT"LUTINGABE DER | ABELLE" 

1820 PRINTER] EBEN WIE DIE GEWUENSCHTE | ABELLE EIN" 

1838 PRINT"VERGESSEN SIE NICHT, JEDE ""INGABE MIT u ABZUSCHLIESSEN !" 
1940 GÜSUB 220008 

1852 FRINT"L4I EBEN WIE DIE #NZAHL DER ".ANNSCHAFTEN EIN "3:INPUT WA 

iu&B IF WA>2B THEN 1070: ELSE 1098 


1878 PRINT"eEELS-INGABE VON MAXIMAL 20 "-ANNSCHAÄFTEN ERLAUBT !":FOR T=1 TO 28 
BB: NEXTT 

1050 GOTO 1058 1180 PRINT BI$(J)5 TAB(323 52 INPUT 511,9) 

19898 ZA=WA-1 1190 NEXT J 

1100 INPUT"—ATUM"SDA$ 1200 NEXT I 

111@ FOR I=8 TO ZA 1210 GDOSUB 22808 

1128 PRINT"L" ZBRB PRINT" ABELLE SÜRTIERENE" 

1138 PRINT I+1"," 2028 PRINT"KEEIS-IE | ABELLE WIRD NUN SORTIERT !" 
1148 INPUT" *.ANNSCHAFT"3M$(I) 28059 PRINT" | ITTE ETWAS | EDULD ı" 

1158 IF LEN{M$(I))>B THEN 1140 z@40 FOR T=1 TO 1808: NEXTT 

1168 PRINT "EI" 2u5B Y=7 

117@ FOR J=B TO 7 28649 FOR I=8 TO ZA-i 


2878 FOR J=I+1 TO ZA 


2088 IF S(I,Y?>S(J,Y) THEN 2130: ELSE IF SII,D<S(tJ,V) THEN GOSUB 19888:G0T0 213 
2 


2090 Y=yY-1 21308 Y=7 
2100 IF Y<>4 THEN 2080 2140 NEXT J 
2118 IF M$(I)<MS(J) THEN 2130 2150 NEXT I 
2122 GOSUB 198098 2168 GOTD 5908 


SOB2 PRINT’LINI ABELLE SFEICHERNME" 


3@28 PRINT"| EBEN #IE FUER DIE —ATEI EINE NOCH NICHTBELEGTE “-UMMER UND EINEN a 
MEN EIN." 

s@3@ INPUT NU,NA$ 

3840 PRINT:PRINT:PRINT"-"ASSETTE EINLEGEN !" 
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3050 PRINT"| ASTEN ’__——" UND '"I_# |’ DRUECKEN" 

3060 OPEN NU,1,2,NA$ 

387@ PRINT# NU,ZA 3148 NEXT J 

30880 PRINT# NU,DA$ 31590 NEXT I 

3098 FOR I=@ TO ZA 3168 CLOSE NU 

Z10@ PRINT#NU,MS(I) 3170 PRINT"LI-IE —ATEI IST GESCHLOSSEN" 
3118 FOR J=@ 10 7 3188 FOR T=1 TO 1088: NEXTT 

3128 WW=S11,J) 3170 GOTO 588 

3130 PRINT#NU,WW 4900 PRINT" ABELLE LADEN“ 


4020 PRINT"jEBEN #IE DIE „UMMER UND DEN ‚AMEN EIN, UNTER DER DIE GEWUENSCHTE — 
ATEI" 

. 4830 PRINT"GESPEICHERT IST." 

2040 INPUT NU,NA$ 

. 4850 PRINT=:PRINT:PRINT"-"ASSETTE EINLEGEN !" 

' 4868 PRINT" ASTE ""1_# I" DRUECKEN !" 


4078 OPEN NU,1,2,NA# 4148 S(I,J)=WW 
4090 INPUT#NU,ZA 4158 NEXT J 

4299 INFUTENU,DA$F 4160 NEXT I 

4108 FOR I=B TO ZA 4172 CLOSE NU 

41182 INPUT#NU,MS(I) 4180 PRINT"LS-IE —ATEI IST GESCHLOSSEN !" 
: 4128 FOR J=8 TO 7 4198 FOR T=1 TO 1888: NEXTT 

4138 INPUT#NU,WW 4200 GOTO Sua 


zsu28 PRINT"Will ABELLE AKTUALISIEREN" 


5928 PRINT" EBEN WIE NUN DIE GESCHOSSENEN UND DIE ERHALTENEN | BRE JEDER 
ANNSCHAFT EIN " 

5a538 FOR T=1 TG 2988: NEXTT:FRINT"L." 

524 PFRINT"TATUM AENDERN !"35: INPUT DA$F 

5958 PRINT"KISIEVIELE EISTERSCHAFTSRUNDEN WOLLEN #IE EINGEBEN "3: INPUT RZ 

: a6 PRINT"LA"S FRINT „"GESCHOSSEN" ,„ "ERHALTEN" 

' 5878 FOR DQ=1 TO RZ 

, SBSB FOR I=2 TO ZA j 

SO92 PRINT"EERKE"MSCI)"=2",=INPUT Ti =PRINT"LI",„,„,‚:INPUT TZ 

5100 S(I,B)=S(1,@+1:5(1,4)=511,4)+7T2:5(1,53=5(1,9)+T1:511,6)=511,&4)+1T1-T2) 
. 5118 IF T1>T2 THEN 5128: ELSE IF T1<T2 THEN 5140: ELSE 5148 

5128 S(1,1)=S(1,1)+1:8i1,7)=5{1,7)+2 


Ss152 G0TO 5178 8819 FOR I=B TO ZA 
S14B S(I,3)=-5(1,3)+1 62028 FÜR J=AR TO 7 
5150 GOTO 5178 i EZB SFLI,TI=SSTREISII,DD) 
5149 St1,2)=511,2)+1:511,7)=5(1,7)+1 6BAQ NEXT J 
' 5178 NEXT I 6050 NEXT I 
5188 NEXT @ 6062 PRINT"LÜ ABELLENSTAND VOM "DAF 
5190 GOTD 2008 69078 PRINT"E" 
| 680@ PRINT"LAIITTE ETWAS | EDULD En #082 FÜR I=Q TO ZA 


#078 FRINT I+1 TAB(3I:MFCI) TAB(12)355$11,0) TAB(15);5#(1,1) TAB(18)35$ (1,295 
6108 PRINT TAB(Z21I5 5$(1, 3) TAB(26)3 S$(1, 5) TAB(29) 54 ":" TAB (28) ; S$11,4);5 

&118 PRINT TABIS36),5#(1,7 

61238 NEXT I 

6130 PRINT"| ASTE DRUECKEN IW:GETKEY FF 

6148 GOTO 508 

7222 PRINT" ABELLE AENDERNE" 

7a22 PRINT"eIREN-ALLS #IE EINEN —EHLER BEI DER —INSABE DÜDER AEHNL ICHES GEMACHT 
HABEN," 

7zu3a PRINT"KOENNEN SIE ES NUN KORRIGIEREN." 

7248 GOSUB ZU008 2 

7e5@ PRINT"L;I EBEN #IE BITTE DEN [ ABELLENPLATZ DER BETREFFENDEN "ANNSCHAFT EI 
n se“ “ 

78508 PRINT"BEISICENN SIE UNSICHER SIND UND | ABELLENPLATZNICHT MEHR WISSEN," 
7878 PRINT"HABEN #IE JETZT I ELEGENHEIT, DIE | ABELLE ZU SEHEN.“ 
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7u88 PRINT"—RUECKEN IE "imE‘ ODER "an" 
78970 INPUT AN$ZIF AN$="J" THEN #BR@: ELSE IF AN$="N" THEN 7108 : ELSE 7890 
7ıa2 INPUT "| ABELLENPLATZ”:PL 


7118 PL=PL-1 7148 FOR J=D TO 7 ö 7188 PRINT " 
7158 PRINT "kersta]" 716@ PRINT Bist}; 72709 PRINT 4 
7178 FOR PP=1 TO LL(M 7210 NEXT J 


7228 PRINT"RISIS-RUECKEN #IE NUN DIE ENTSPRECHENDE - ENN-" 
723@ PRINT"ZIFFER DES FALSCHEN | ABELLENWERTES !" 
7248 INPUT KF 
725B IF KF<@ OR KF>7 THEN 7248 
7268 PRINT"L"M$ (PL) 
7278 PRINT "te" 
7280 PRINT BI$(KF)5TAB(3B) 52 INPUT S(PL,KF) 
7298 PRINT"ERBIESEITERE #ENDERUNGEN ? —RUECKEN #IE" 
73@8 PRINT" 37° ODER ’lum‘" 
7310 INPUT AN$:IF AN$S="J" THEN 7850: ELSE IF AN$="N" THEN 2002: ELSE 7310 
18000 FOR X=@ TO 7 
128018 Z=S(1,X:5(1,X=5(J,M:5(J,X)=Z 12048 RETURN 
10928 NEXT X 28282 PRINT" EISTSTETE| ASTE DRUECKEN 1!" 
12039 Z$=M$(I)cM$CDI=MELN :MS(T)=7$ 28810 GETKEY Als 
22022 RETURN 


SB@B2 DATA "—INGABEs: | ABELLE*" „"1" 

SaB1iM DATA "| ABELLE SPEICHERN" ,„"2","|_ ADEN DER } ABELLE" 2.3" 

SaQ2R DATA "| ABELLE AKTUALISIEREN" „"4" s"| ABELLENAUSGABE AUF | ILDSCHIRM” „"5" 
SOB5B DATA "#ENDERUNGEN", "6", "@RBEIT BEENDEN" ."7® 

S0049 DATA "MFIELANZAHL" „" WIEGE" „"_EMIS" ‚" TEDERLAGEN" „""RHALTENE | ORE" 
SaBS5@ DATA "| ESCHOSSENE { ORE" "| ORDIFFERENZ" s" "UNKTE" 

40820 END 


Besondere Vorzüge dieses Programms: 


- bis 30 Datensätze auf einmal im Speicher 
frei wählbare Eingabemaske 
Suchen nach Begriffen in beliebigen Feldern 
Ausdruck der Datensätze möglich 

- Einfache, übersichtliche Bedienung 

- Integriertes Diskettenhilfsprogramm 


Mit diesem Programm wurde versucht, möglichst viele nützli- 
che Funktionen so unterzubringen, daß sie einfach zu bedie- 
nen sind. Das Programm wird daher über 4 Parallelmenüs ge- 
steuert, unter denen man mit den Funktionstasten Fi-F3 und 
HELP beliebig hin- und herschalten kann. 


Beschreibung der einzelnen Menues und Funktionen: 


1. Datei (Fi) 

a) Daten eingeben... 
Den 8 Feldern der Eingabemaske können nun Begriffe zu- 
geordnet werden (z. B. Name: Meier o. ä.) 
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b) Daten ändern... 
Der Computer fragt Sie, ob Sie nach ei- 
nem Begriff im 1. Feld der Maske su- 
chen wollen. Falls ja, geben Sie diesen 
ein, falls nein, drücken Sie RETURN. 
Hat der Computer den Datensatz (z. B. 
eine Adresse gibt er ihn Zeile für Zeile 
aus, und Sie können jeden Begriff edi- 
tieren und/oder mit RETURN überneh- 
men. 

e) Daten ausgeben... 
Wie unter b) sucht der Gomputer Ihren 
Datensatz und gibt ihn auf dem Bild- 
schirm aus. Nun wird nach dem Aus- 
drucken gefragt. Nur bei Druck auf „J“ 
aktiviert der Computer den Drucker. 


Als zusätzliche Option kann bei b) und c) 
auf die Frage nach dem Suchbegriff auch 
”** singegeben werden. Es werden dann 
alle Datensätze hintereinander ausgege- 
ben. Aufdie Frage „weiter?“ kann der Vor- 
gang mit „N“ abgebrochen werden. 


d} Datei laden... 
Eine abgespeicherte Datei wird mit der 
zugehörigen Maske geladen (keine Ko- 
ordinationsprobleme Maske-Datensät- 
ze!). Vorher muß man den Filenamen 
angeben. 

e) Daiei speichern ... 
Die im Speicher befindliche Datei wird 
mit der zugehörigen Maske nach Ein- 
gabe des Filenamens sequentiell abge- 
speichert. 

f} Datenspeicher löschen ... 
Nachdem die Sicherheitsabfrage mit 
„J“ beantwortet wurde, wird der Daten- 
speicher gelöscht. Die Maske bleibt er- 
halten. 


iD REM REM’S ICH EINGEBEN ! Datenfiles, ge- 

20 REM====2=2===2=22=220 2822222 S2SmSS 0m trennt von seinen 

38 REM======2=en0222 2 =22smmemmzezsen nen Datensätzen, in 

40 REM=== SUPERDAT === | den Speicher ho- 

58 REM=========2=22.2 2022222202 len. Der Daten- 

N 
=== en 5 R, 

898 REM=== 4576 BERGE zus beiden Fällen un- | 

9D REM=>===2=2=2=22:27= 22225 75202 NER 7 FR ZSRIECCE verändert. 

198 REM=s====2=2=2 == ==2m2 2 SS messen 


2. Diskette (F2) 

Dieses Menue ist das integrierte Disket- 

tenhilfsprogramm. 

a) Inhaltsverzeichnis ... 
Der Computer holt das Directory der 
eingelegten Diskette 

b) Files löschen... 
Nach Eingabe des entsprechenden Fi- 
lenames wird ein File oder ein Pro- 
gramm gescratcht 

c) Files umbenennen ... 
Dazu müssen Sie den jetzigen und den 
neuen Filenamen eingeben 

d) Disk aufräumen ... 
Validatieren der Diskette (schließen al- 
ler Files etc.) 

e) Disk formatieren .. 
Es kann mit oder ohne ID auf den einzu- 
gebenden Namen formatiert werden 


3. Maske (F3) 

Die z. Zt. aktivierte Maske wird angezeigt. 

a) Maske ändern... 
Die Belegung der 8 möglichen Felder 
wird Zeile für Zeile ausgegeben und 
kann editiert und/mit RETURN über- 
nommen werden. 16 Zeichen pro Feld 
werden angenommen. Mit HELP setzen 
Sie das Ende der Maske (d. h. wenn Sie 
im 6. Feld z. B. HELP drücken, besteht 
die Maske aus den ersten 5 Feldern). 

b) Maske speichern... 
Die derzeitige Maske wird z. B. für spä- 
tere Verwendungszwecke sequentiell 
abgespeichert: Vorher ist der Filename 
einzugeben. 

c) Maske laden... 
Hiermit kann man nach Eingabe desFi- 
lenamens zum einen eine mit b} abge- 
speicherte Maske laden, oder aber die 

Maske eines best. 


programme 


4. Farbwahl (HELP) 

Die Hintergrund- und Rahmenfarbe kann 
nach pers. Geschmack über die Cursorta- 
sten verändert werden. Dabei bedeutet: 


Cursor links... Rahmenfarhe verändern 
Cursor rechts... Hintergrundfarbe verändern 
tursor up...  Luminanz (bzw. Farbnummer) 


um 1 erhöhen 
Luminanz (bzw. Farbnummer) 
um 1 erniedrigen 


Cursor down ... 


Allgemeine Informationen: 


@ Hatder Computer eine erteilte Aufgabe 
erfüllt, wartet er stets auf einen Tasten- 
druck. Bei Arbeiten mit der Peripherie 
meldet er OK. 


@ Mit der Stoptaste kann das Programm 
jederzeit (außer bei einem Input-Be- 
fehl+ unterbrochen werden. Das Pro- 
gramm kehrt dann an den Anfang zu- 
rück, wo man zwischen den 4 Menüs 
wählen kann. Alle Daten bleiben erhal- 
ten. 


@ Mit ESC/Q kann das Programm von je- 
dem Menü aus beendet werden. 


@ Das Programm ist relativ absturzsicher, 
d. h. alle Fehler werden aufgefangen, 
und nach der Fehlermeldung wird das 
Programm fortgesetzt. Sollten Sie je- 
doch einmal von einer Funktionstaste 
auf eine andere abrutschen, kann es 
geschehen, daß der Computer mit 
READY aussteigt. Das Programm kann 
in diesem Falle aber mit GOTO 240 oh- 
ne Datenverlust fortgesetzt werden. 


@ Nach dem Start des Programms ist die 
Maske so ausgelegt, daß das Pro- 
gramm als Adressenverwaltung ge- 
nutzt werden kann. Durch Änderung 
der Maske sind natürlich unendlich 
viele Einsatzmöglichkeiten, wie bei- 
spielsweise Platten-, Video-, Bücher- 
Programmverwaltungen etc. möglich. 


® Aus Speicherplatzgründen dürfen die 
REMs nicht mit eingegeben werden. 





11® FORI=1T08: READN: KEYI „CHR$ (N) :NEXT=:DATA133,137,134,138,135,139,136,148:G0T018 
2 


128 REM=== 
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150 
148 
159 
162 
178 
139 


POKE1373,8: S=ASC (K$) s IFS=13356G0T0288 

IFS=13760T0678: ELSEIFS=134G0T01219 

IFS=14B8560T01468 

IFS=27THENGETKEYK$: IFK$="D" THEN1540 

ONMGOTOSSB, 750, 1250,1500,250 

DIMD$ (8,50) : TRAP1LEBB:FH(4) =2: FH (8) =2: LH (9) =4: COLOR4,1:COLORQ,2,4:COLOR1,1:50 


SUB1B70 


198 
209 
218 
228 
230 
xT 
2a8 
258 
268 
270 
2898 
298 
Br) ] 
318 
328 
5538 
348 
558 
362 
378 
3B2 
578 
A002 
410 
428 
450 
448 
458 
460 
478 
498 
498 
san 
518 


REM====2======2=m= ANFANG Sams mumemau 

PRINTCHR$ (14) CHRF (SI "ERER"TAB(ISY "AG . 1". 7 4 | ":POKE1344,0:M=5 

PRINT" (C) 1985 BY I IM VCHLUETERE":FORI=1TD48: PRINT" "3 2 NEXT 

PRINT" S-1 sATEI ® 4-5 BNASKE ="; 

PRINT”& +2 3-ISKETTE #& BIELP B-ARBWAHL #";:FORI=1T0408: PRINT"#"; :NE 


CLOSE1: PRINT" BEIKABBIEBO" CHRS (ZI " T" 
PRINT"LBERISBPRBEee | ITTE WAEHLENg" 
GETKEYK$:GOTO13S8 
REM=-===-==-=-2= DATEI zszzzzemueummmazm 
M=1:K$="Xunhbhba-"SPRINT"KBI"K$"1-m "ATEN EINGEBEN” 
PRINTKF"2-g —ATEN AENDERN":PRINTK$"3-g -ATEN AUSGEBEN" 
PRINTK$"4-g —ATEI LADEN": PRINTKS"S-g -ATEI SPEICHERN" 
PRINTK$"&-g "ATENSPEICHER LOESCHEN" 
GETKEYK$:GDTO1I8 
=VYAL(KFI : IFASIORA>AHGOTOZZ2O 
ONAGOTOS9B,1118,1110,548,618,1040 
REM==== DATEI IM RECHNER ? =z====== 
IFAZ=BTHENPRINT "pa -EINE -ATEN IM _ECHNER !8":GETKEYK$:GOTN288 
RETURN 
REM ===== EINGABE/AENDERUNG z===== 
AZ=AZ+1: Z=AZ: IFAZ>SBOTHENPRINT" Kpiknla ZUVIELE -ATEN !":60T0449 
SENELR: IFA=2THENJ=Z+1 :GOSUB34AQ 
PRINT: FORY=1TOAM:PRINTES(Y) 3 2 IFA=1THENA3B 
PRINT"BBI"3O$S(Y,ZICHR$ (141) "1" 3 2 FORX= 1 TOLEN ES CYYI-1: PRINT"; sNEXTX 
DEIY,ZI=""3PRINT"@"5 : INPUTDOS(Y,„ZI=2NEXTY 
IFA=2ZTHENRETURN 
A=2: FORI=1TOAM: IFO$ (1,2) =" "THENA=A+1:NEXTIs IFA=AMTHENAZ=AZ-1 
GETKEYK#:60T0289 
REM zzzzm=== AUSGABE Zuumzzaeuzmzemem 
GOSUBIS6B: J=Z+1 3: PRINT"LR" 
FORX=1TDAM:PRINTE$ (X) "= S"O8(CX, ZY=ENEXT 
PRINTTAB (11) "I4USDRUCK? (J/N) ":GETKEYKS$: IFK$< >" J"THENRETURN 
OPEN1 „4: PRINT#1:FORX=1TDAM: PRINT#1 „CHR$ (17) zPRINT#1 „ER(XIS"E "S5O8FCX,ZISNEXT: 


CLOSE1 


528 
538 
542 
558 
5360 
>78 
sa 
598 
Bu 
618 
629 
630 
648 
658 
[- 1-7) 
678 
688 
698 


52 


PRINT" T’."zRETURN 

REM -rr==m=2=2e: 22 LADEN SZZZZEZaneses 

GOSUB15S4B: PRINT" BIISLADE -ATEI "CHR$ (34) F$CHR$ (34) 

OPENI1 ,8,8,F$+",5,R": INPUT#1 „AM: FORI=1TOAM: INPUT#1,N$ CI) SNEXTI 
INPUT#L, AZ:FORX=1TOAZ 

FORI= 1TOAM: INPUT#1 „OSCI,KIENEXTI,K. 

IFDS< >BTHENPRINT "RB "+DS#+" ERROR !w"sCLOSE1:GETKEYKS:SOTOZEO 
PRINT"® T-.8":CL0OSE1:GETKEYK$:6GOSULB1298: BOTOZAQ 

REM s====2==2==: SPEICHERN zzzmmzmz= 

GOSUBS4B: GOSUB154B: PRINT’ SPEICHERE -ATEI ALS "CHR$ 34) F$CHRS (34) 
OPEN1,8,1, "8: "+F$+" ,5,W":PRINT#1 „AM: FORX=1TOAM:PRINT#1 ,NECX)I ENEXTX 
PRINT#1, AZ:FORX=1T0AZ 

FORY=1TOAM: PRINT#1,0$8(Y,X}:NEXTY,X 

ELOSEI:PRINT"E T-’.8":GETKEYK$:GOTOZIOA 

REM ====mzz=m== DISKETTE zszezzumzem 

M=2: K$="EREbb EB" i 
PRINT"LIE"K#"1-B „NHALTSVERZEICHNIS":PRINTK$"2-8 —-ILES LOESCHEN" 
PRINTK#"3- —-ILES UMBENENNEN" 
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' 70m 
' 710 
728 


. 750 


720 
758 
768 
778 
782 
7970 
80a 
81a 
828 
858 
840 
8959 
848 
878 
830 
8972 
728 
918 
922 
938 
740 
40 

958 
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PRINTKF"4-g -ISKETTE AUFRAEUMEN" 

PRINTK$S"S5-9 —-ISKETTE FORMATIEREN" 

GETKEYK$#: GOTO138 

A=VAL IK#) : IFA< LORA>SGOTO728 

ONAGOTO1220,760,2910,888,728,248 

REM ======u= SCRATCHEN zzzuz=emumum 

PRINT" -AME DES ZU SERATCHENDEN -ILES (16) ":5$="": INPUT" "35% 
IFS$=""DORLEN (5%) 1660170748: ELSEGDSUB1S70 

FRINT"IA -ILE "CHR$ (34) S$CHR$ (34) " WIRD GESCRATCHT" : SCRATCH""+5$ 
PRINT"B3 T-.8":5ETKEYK$:GOT0878 

REM=====0== UMBENENNEN ======mmn== 

INPUT" ALTER —ILENAME"3; AS: IFAF=" "GOTOB1R 

INPUT"ERBM NEUER —ILENAME"3SF&$: IFF$=""GOTO820: ELSEKF=SCHRE (34) 
GOSUB1S578: PRINT" -ILE "CHR$ (34) A$SCHRF 3A)" WIRD AUF DEN" 

PRINT" /AMEN "CHRS$ (34) FSCHRS$ (34) " UMBENANNT" 3 RENAME""+ASTO""+F$ 
IFDS=BTHENPRINT"EO T-.B":GETKEYK$:GOTD67R 

PRINT" "+DS5#+" ERROR !g"sCLOSE1:GETKEYK$:SOTD&ST7B 

REM z=z====.= AUFRAEUMEN se,ru==esecz ; 

SCENCLR: GOSUB15708 


PRINT"IS IsrISK WIRD Z. #1. AUFGERAEUMT !g":COLLECT 

IFDS=BTHENPRINT"E EI.8":GETKEYK$:G60T0578: ELSEFOB 

REM ======== FORMATIEREN sammEEIZSEEE 

PRINT"LEB] %OLL MIT NEUER -,— FORMATIERT WERDEN {g/m "ss 

BETKEYK$: IFK$< >" JP"ANDKS< >" N"’GOTOIZB 

PRINT"LIB ‚EUER „AME DER -ISKETTE": INPUT" "3NA$: IFNA$=""ORLEN {NA$) >LATHENY 
IFK$="J"THENPRINT"B ‚-EUE „= DER -ISKETTE" 3: INPUTOD$= IFLEN (OD#) < >ZTHENPRINT" 


":6070958 


IR 
978 
938 
7972 


GDSUB157B8: POKE65286 „FEEK (65286) AND23Y 

IFK£="N" THENOPENi „8,15, "N: "+NA$#:CLOSE1:G0T0990 
OPEN1,8,15,"N2 "+NA$+" „"+0D$: CLOSE1 

IFDS< >ATHENPRINT"IS "+DS$+" ERROR !":ELSEPRINT"EM la u" 


1004 A=4528&: POKEA,PEEK (A) DR16:GETKEYK$: GOTOGT7D 
1818 REM ========= DIRECTORY zamzmmmum 
1928 SCNELR: DIRECTORY: IFDS<S >RBTHENPRINT"BEB "DS$" ERROR"SELSEPRINT"MII 177." 
1925 GETKEYKF:GOTDO67B ' 
i03QR REM ====S52=== SCRATCHEN z=.====2=-.=-= 
1049 FRINT"ÜREREEERIYIND IE SICHER ?":GETKEYK$:S IFK$<>"J" THENZBD 
1459 FORI=1TOAZ:FORX=1T08:08(X,Y)="":NEXTXANEXTI: AZ=B: Z=8 
1858 FPRINT"@S3 RATEN SIND GELDESCHT: 19": GETKEYK$: GOTO2Z82 j 
1078 N$(1)="@NREDE" :N$ (2) =" /AME" =N$ (3) =" KXORNAME (N) "3 N$ (4) =" VTIRASSE"ENSCSI="TL2/0 


EHNORT" 

1882 N$(&)="| ELEFON":N$ (TI) =" [EMERKUNG" = AM=7: FORI=S1TO15: Z$=Z7$+" "SNEXT 
1878 FORX=1ITOAM:EFINI="B "+NEONI+LEFTSCIF,16-LENINFCXI II) SNEXTSRETURN 
1192 REM======= SUCHKRITERIUM FsasmssenZ 

1110 KIRTHTSTKIRTET KERN” =: GDSUB36R: FORI=1TOAM: NAF="" 





1129 J=0: LPRINT"LBIRBBI. | „ANDERES YUCHKRITERIUM) " 
1138 PRINT"BRBBI"N$ (1) 5: INPUTNA$: IFNA$=""THENNEXT 1: GDTOZ8@: ELSEIFNA$="*"GOT01670 
1148 FORZ=JTDAZ: IFO$ (1,2) =NA$GOTO11SB:ELSE117M 


1152 IFA=ZTHENGSOSUR428: ELSESGSUBA4SR 

1148 GETKEYKF:GOTGA14B 

1172 NEXTZ: IFJ=BTHENPRINTAF" %&DRESSE NICHT IM WEICHER®@":GOTOD119B 

1199 J=B:PRINTAF" KEINE WEITEREN #DRESSEN UNTER DIESEM"SPC (16) "-RITERIUMg" 
1199 GETKEYK$S:GOTOTSZB 

1290 REM======3=5== MASKEN nr I 6) 

1218 M=-3: PRINT"LAERRERbERBERISTETZIGE "ASKE: EN": Kt=" ERERRRnpRI" 

1220 FORX=1TOAM: PRINTKS"ERRERLE"N$ (X) =NEXT=:PRINTKE"-1- B-ASKE AENDERN" 


1238 PRINTK#"-2- w-ASKE LADEN" :PRINTK$"-35- wASKE SPEICHERN” 


1248 
1259 


GETKEYK$: 60T0150 
A=VAL (ES) 5 IFAZLDORA>3GOTO1248 
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1268 
1270 
1289 
1298 
1308 
1318 
1328 
1330 
1348 
1350 
1562 
1378 
1588 
13978 
1488 
1418 
1428 
14530 
1448 
1458 
1448 
1470 
1489 
1470 
1502 
1510 
1528 
1558 
1548 
1558 
1558 
1578 
1590 
15978 
1509 
1610 
1428 
1638 
1640 
1658 
1640 
1678 
1598 
1698 
1708 


ONAGOTO1289,1410,1360 

REM======== MASKE AENDERN se===2==== 

SCNELR:PRINT'IRMRRBBIS-ASKE AENDERN (11 = NDE)EE"EKEYB,"_"+CHR$ (13) 
FORI=1TOB: K$=N$ (1) :PRINT"BCLO)BBI"NSCTICHRS (141) "Dee" ; = INPUTN$ (DD 
IFLEN(N£CDII FI STHENN${DI=LEFTFINS CI), 14) 

IFLEFT$(N$ (I) ,1)="_"GOT01340 

NEXTI 

KEYS „CHR$ (148) : FRINT"g" : AM=1I-1: GOSUB1099: GOTO1218 
IFI=1THENN# (1) =K$: I=-8: 560T01288: ELSE1332 

REM===== MASKE SPEICHERN ======2= 

GOSUB1S548B 

PRINT"EREBISSPEICHERE “ASKE ALS "CHR$ (354) FSCHR$ (3A) "m" 

OPEN1,8,1,"@s "+F#+",S,W"=PRINT#1 „AM: FORI=1TDAM: PRINT#1 ,N$ {T) :=NEXT:CLOSEI 
PRINT"EaBIS -.u":GETKEYKF:GOTO1212 

REM=s====-== MASKE LADEN suszızemm= 

GOSUB1S56B: PRINT’EREBIA_AÄDE DIE “ASKE "CHR$ 34) FSCHRE (34) "" 
DOPEN1,8,0,F$+",5,R"= INPUT#1 „AM: FORI=1TDAM: INPUT#1 ,N$ (I) SNEXTSECLOSEA 
IFDS< >ZBTHENPRINT'BRRINIE" DSF" "RROR !w":GETKEYK$:GOTOI1?10 

PRINT '"EREIS - .u":GETKEYK$: SOSUB1998: G0T01218 


M=4: PRINT "LEEREN URSORTASTEN" 
PRINT" BRISE-ARBE +/- => UP/DORN” 
PRINT" BBRAHMEN/ HINTERGRUND => LINKS/RECHTS" 
GETKEYK$F:GOTO1I8 


IFK$="8" THENLH (F)=LH IP) -1: IFLH FI SBTHENLH {F)=7: FH(F)=FH(F) 1 
IFK$="D" THENLH (FISCH (FI +13 IFLH PY 37 THENLHF) SB: FH(FI=FHCFI+1 
IFK$="W" THENF=4 3 ELSEIFK$="W" THENF=B 
IFFH{FPISITHENFH (FI =1&: ELSEIFFHF} >L6THENFH (P}>1 

EOLORF „FH({F) „LH(F) :GOT01498 


REM======== FILENAMEEINGABE ======= 

F$="": INPUT" 2 -ILENAME (14) ";F$: IFLEN(F$) >L6ORF$=""GOTO156B 
PRINT" -ISK EINLEGEN UND _71 „— DRUECKEN !g" 

GETK$: IFK#=CHR$ (15) THENRETURN: ELSE1582 

REM==z=====-=- ERROR °S zz=uum—um=m—=eeoe= 

TRAP1680: IFER< >STHEN1628 

PRINT" LEBENDEN -LOPPY IST NICHT ANGESCHALTET !*":RESUMENEXT 
IFER=23THENPRINT "I RAME ZU LANG '"z: RESUME 

IFER< >3BGOTO1A50 


PRINT" KRBEBIS" TAB (15) "2BBRUCH '"sCLOSE1: FORI=1T08R9: NEXT: GOT0259 
CLOSE1: EI MIKIRDIREN "ERR${ER) "TRROR" Ss HELP: END 
POKE65287 ,8: COLORB,2,7:COLOR4, 15,53 PRINTCHRE& (9) CHRS$ (142) "SELENDE": END 
FORZ= 1TOAZ: IFA= ZTHENGOSUB4BR: : ELSEGOSUBABR 

IFA=STHENPRINT"D"5 

PRINTTAB(11)" WEITER? (J/N * 

POKE1375,8: GETKEYA$: IFA$="N" THENZ=B: GOTO288: ELSENEXT : Z=9: 50TO288 
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chern, um ihn jederzeit wieder verwenden 
zu können. 

DerUnterschied zwischen den beiden Pro- 
grammen (Multigraph K + Multigraph D) 
besteht darin, daß in Multigraphic K (Kas- 
sette) die Zeilen 

Das folgende Programm ist ein Top-Zei- |-1355 CHAR0,20,“ 

chengenerator der sowohl bei einer Dis- | 1360 SYS 43115 N$,1,1 

kettenstation als auch einer Datasette ein- | 1380 CHAR0,21,' 

gesetzt werden kann. Das Programm er- | 1390 CHAR 0,22“ 

möglicht Ihnen einen eigenen Zeichensatz | 1591 CHAR0.20,““ 

zu erstellen und diesen dann abzuspei- | 1595 SYS 43115 N$,1,1 
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1661 CHAR.0,21/' 

1662 CHARO,225 

eingesetzt oder ergänzt worden sind. 
Bei beiden Multigraphic-Programmen 
kann man die abgespeicherten 
Zeichensätze mit: LOAD,Filename“,8,1 bzw. 
LOAD,Filename“,1,1 * 

wieder in den Computer einladen und die- 
se dann mit: 


POKE65298,PEEK(6529BJAND251: 
POKEB5299,PEEK(65299)JAND30R56; 
POKE 740,56 Ä 


aktivieren. Damit der Zeichensatz nicht 
von einem Programm überschrieben wird, 
muß der hintere Teil des Speichers mit: 


POKES5,255:POKES6,55:CLR 


108 REM KENNER TREE HNNR 
118 REM + * 
1282 REM # C-1&4 MULTIGRAPHIC #* 
138 REM #4 mm * 
142 REM # * 
160 REM * SOFTWARE SFRENGER # 
172 REM + #* 
iA REM * * 
192 REM * 29.12.1985 * 
zog REM * * 
218 REM * %* 
FB REM KERRNRUNRERIN NN KR HN HH NH 
248 FOKE1344,64: POKESS ,255:POFES&A „55: CLR 
249 COLOR1,1:COLORB,1:CDLOR4,1 
27a REM --—--—----—----- -.-. . .. 0 

2808 REM ZEICHENSAT?Z-CTOPY 
292 REM een tn m nn 

388 PRINT"LMONITOREREREN" 


>18 
320 


PRINT"T DERAB D7FF Ian" 
FRINT"EX":PRINT"ERUNZAR" 


338 POKE1319,19: FORA=1320T01323: POKEA,13:NEXT 
349 POKE237,5:END j 
35B REM ——------------- -.-. -- 

364 REM NEUE ZEICHEN 

378 REM ------------------ - 

330 


374 
408 
418 
420 
4308 
448 
450 


SCNCLR: POKE65286 ‚„PEEK (65286) AND239: COLOR1,2 
FORA=15248T015279: READD: POKE A,D:NEXTA 
DATA2S5,0,255,0,255,0,255,0 
DATA74,18,128,72,72,196,4,12 
DATA233,9,24,49,47,33,32,96 
DATAZ8,34,65,65,34,29,28,34 
DATAGB,66,153,161,161,153,66,68 
FORA=14575T014591:READD: POKEA,D:NEXT 


en 


468 DATA 2,0,9,24,24,0,80,0 

470 DATA 8,602,126,126,126,126,62,8 
S5B REM -------- 

560 REM DATAEN UND VARIABLEN 
578 REM 

582 VOL 8:C60=117:L=6:R=11:V0=1 


585 
578 
[= 1%] 
618 
629 
32 
648 
678 
732 
7ı8 


DIME(7,7}: TRAF29I88 


REM 


BOSUB2270 


FOKE237,8:GETEEYAF 
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CHAR,„2,11,"5IND INFORMATIONEN ERWUENSCHT 


a — ; — — — 


td" 


Compute mi 





programme 


für den Zeichensatz reserviert werden. 
Sollte während dem Gebrauch des neuen 
Zeichensatzes ein schreckliches Flim- 
mern auf dem Bildschirm auftreten, ist 
dieses mit: 


POKE65298,PEEK(65298JAND251 


zu beheben (das Flimmern tritt durch ei- 
nen Fehler auf). 


Zeichnen Sie Ihre eigenen 
Gemälde mit Multigrafik 


FOKE&S278 „PEEHR (63278) ANDZ2S1: POKEASZII „PEER (65299) ANDSORS6: POKE7AB,56 
KEY 8,"PODKE 55278,172:SCNCLR"+CHRE (135) 
PRINTECHR& (8) =: PRINTCHR& (273 +"C" 


95 


Programme 


IFAF="J"THEN GOSUB 2450 788 K#="A":BT=1:60T0 1966 


. 728 
7428 SO0UND1 ,558,18:SCNCELR BOB REM -——--—--- men men memmn 
7945 POKE6S2B4, PEEK (65286) AND239: :COLOR4,7,6 | 818 REM GRAFHIC ZEICHNEN . 
778 GOSUBIFBR: BOSUB 1152 BZB REM ------- nn nn 
775 FOKE65285 „PEEK (65286) OR1& 850 GETTA$ 
851 IFPEEK (1347) =1ANDPEEK (3195) =112THENSOQUNDI ‚988,5: GOSUB1188 
832 IFFEEK11347) =2ANDPEEK (3195) =45THENSOUND1 , san, 5: SOSUB1211 
833 IF TA$=""THENSSO 
834 SOUND1 „908,5 895 IF TA$="B"THEN SENCLR:END 
835 POKEAB.PEEK (AB) -128 89& IF TA$="T"ANDVO=1THENVO=Q: VOLO:GOTOITEO 
848 IF TAF="N"THEN GOSUB 998 897 IF TA$="T"ANDVO=BTHENVO=1:VOLB:SDUNDI, 909,3 
850 IF TAF="L"THEN 1268 702 AB=3072+L+R#42: POKEAB,K(L-64,R-11) 

858 IF TAF="S"THEN 14508 718 IF TA$="L"THENR=R-1: IFR<11THENR=18 

878 IF TA$="ÜC"THEN 1720 720 IF TA$="W" THENL=L+1: IFL>1STHENL=4 

888 IF TAF="E"THEN 1890 73@ IF TAF="l" THENR=R+1: IFR>LSTHENR=11 

BI2 IF TA$="P"THEN 2078 740 IF TAs=""THENL=SL-1: IFLIATHENL=13 

95a IF TAs=" "AND PEEKtABI=SBATHEN K(L-5,R-11)=31 

7608 IF TA$=" "AND PEEK(ABI=SITHEN KiL-6,R-11)=30 

972 AB=3972+L+R*40: POKEAB,„K(L-58,R-11)+12B 

788 GOTU 830 

GOn BE se 1R5D NEXTL=:CHAR „6,R, "rent NEXTR 
1208 REM RASTER ZEICHNEN 1078 R=11:L=6 

BIO REM = nm 1112 RETURN 

1930 FORR=11T018 PIE BEST ee ner 
1048 FORL=&T013 1138 REM BILDSCHIRM ZEICHNEN 
1050 KiL-64,R-11)=38 IRB REN RETTET FRRÄRETTE TAT ER 
1189 CHAR,S,1,ÄYABCECDEFGHIIKLMNDOPOAO RK" 

1172 CHAR,S,S,'"STUVWXY 7" . 

1188 CHAR,„3,3,"# | - 7 7 —- | IA ILS FT IE _" 

1198 CHAR,„3,7,'% | - Koa [ 

1282 607017229 

1211 CHAR,Z3 ‚Se"r "till ui I im. Fr" 

1212 CHAR,S, 7," "= 44107 w 

1220 CHAR, 25 „Ts "WLWADEN":CHAR,25,9, "WSRPEICHERN" 

1238 CHAR,2S, 11, "KICMOPIEREN" : CHAR, 25,13, "WEBDITIEREN" 

1242 CHAR,25,15, "WNMEUES FELD": CHAR, 25,17, "WPEOKES DRUCKEN" = CHAR, 25,19, "WTEON EI 
N/AUS" 

1245 CHAR,25,21,"WEREENDEN" 13520 N$="".60SUB 2758 

1758 RETURN 1530 CHAR,25,7, "LADEN": CHAR, 25,10," “ 
1258 REN en 1549 CHAR,2S, 12," »: INPUT"NAME NuN$ 
1270 REM LADEN 1358 IF NE="THEN 1660 

12988 REM mn nn nn 1369 SYS43115 N$,8,1 

1370 POKE29S4 ‚PEEK (10) :POKE2035,PEEK (43) : POKE2836 „PEEK (44) :5SY565493: FE$=DS$ 
1448 K$="A": GOSUB2230: GOSuUB 1220: G0OTI19&44& 

1458 REM -——--- mm nn 

1458 REM SPEICHERN 

1470 REM -——- mm nn nn 

1518 N$="".G0OSUB 77230 

1528 CHAR,25,9, "SPEICHERN" CHAR „25,10, "mu—m—umun “ 

1580 CHAR,23,12,""2 INPUT"NAME "3N$ 

1598 IF N$=""THEN144Q 

1595 SYS43115 N$,8,1 bi 

1408 POKE217,56: POKEZ16, 8: POKEIOS6 „64: POKE2B35, 1) R 


1818 POKE2034, 216: SYS6SA96. 


1660 
1665 


56 


POKE2@22 ‚8: POKE2B23 ‚15: PRINTCHR$ (147) 
FE#=DS$#: GUSUB2239: GUOSUB1729: 560T09708 
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1478 
1498 
: 1690 
1728 
1738 
1740 
1758 
1768 
1770 
1775 
») 
1788 
1790 
1888 
1810 
1828 
1848 
1858 
1868 
1878 
1988 


1740 
1958 


1968 


1965 
1966 


1970 
1988 
1978 
ı 2a 
: 2810 
' 2838 
2840 
2850 
2088 
2070 
Zu8B 
2070 
2180 
2148 
2158 
2168 
2170 
2188 
21970 
2200 
2210 


Programme 


REM ----------- 
GOSUB 2238 

CHAR „25,9, "COPIEREN" 3 CHAR ,25, 18, "------—- „ 
CHAR,23,15,"BUCHSTABE ? 

GETKEY K$:SOUND1,700,5: CHAR 36,15, Ks 

IF ASCI(K$)=1STHEN 1880 

IF ASCIKSI<AS OR ASCIKS)>70 THEN 1740 


IFASC (K$) <BSTHENSA=PEEK (3195+2% (ASC (K$) -65) ) :ELSESA=PEEK (3355+2# (AST (K$) -83| 
ZIEL=5A*8+14336 

FORJ=BTO?T 

BYTE=8 

FORI=ATO?7 

IF PEEK(3518+1+49xJ)=31 OR PEEK(3518+1+J#*49)=157 THEN P=1:ELSEP=8 
BYTE=BYTE+(P#2”(7-D)) 

NEXTI 1890 REM -——----------- 7-2 
POKEZIEL+J,BYTE 1988 REM EDITIEREN 
NEXTJzL=6:R=11 19718: REM m. 
GOSUB. 2238: G05UB1229:G0T0 978 1938 RP=B:605UB 2208 


CHAR, 25,9, "EDITIEREN" :CHAR,25, 10, "-------—- " 


CHAR „23,15, ""3PRINT"BUCHSTABE 7 "»GETKEY K#:SDUND1 , 788,5: CHAR „36, 15, K# 
IF ASC(KFI=13THENZ22SO 
IF ASCIKFI<6S OR ASCIKFI>IR@ THEN 1748 
IFASC (K$) <BSTHENSA=PEEK (3195+2%# (ASC (K$) -65) ) :ELSESA=PEEK (3395+2# (ASCIKFI 85 
FOR J=8T07 
BYTE = PEEK{145336+J+5A*8) 
FOR I=8T07 
ZIEL=(3518+1+48*J) 
IF BYTE-128/ (2°II=>UTHEN BYTE=BYTE-128/ (2"I):K{1I,J)=31:ELSEK (1, N=38 
POKE ZIEL,K(I1,7 
NEXTI= NEXT J 
IFBT=BTHENGOSUB 2209: GOSUB 1228: EL5SEBT=O 
=5:R=11:60T0978 

REM -——---- - men nn nn 
REM POKES » 2118: FORJ=BTO?T 
REM —---------- - 12m 21208 BYTE=B 
GOSUB2238: CHAR „27,8, "POKES"SCHAR „27,9, "770777 “:PO=1l 21302 FÜORI=OTO? 
IF PEEK(3518+I+4B8J)=3S1THEN P=1:ELSEP=B 
BYTE=BYTE+(P#2” (7-D) 2228 REM — nn nn 
NEXTI 2238. POKE2822,7: POKE2223 „28: PRINTEHR$ (147) 
CHAR,„S31-LEN {STR$(BYTE)) ,„PO,STR$(BYTE) 2248 PRINTCHR$ (147) 
PO=PO+12NEXTJ: GETKEYA$:SOUND1,9709,5 2258 RETURN 
GOSUB 2238: GOSUB1229:G0OTO 978 n} 2268 REM ---------------- een 
BEREITET ee ger, 2278 REM TITELBILD 
REM BILDSCHIRMTEIL LOESCHEN 22BB REM mm nnnann m nn 

22980 COLOR1,7,1:PRINT"LI. LL 1.2 0 I2ıır 1 

2292 COLOR1,7,2:PRINT"-4 44 4 ı. nn ae 

2293 EDLOR1,7,3:PRINT"1 4 4, 44 „L PL 

2294 COLOR1,7,4:PRINT"-+ L en „ „ FILı" 

2295 COLOR1,7,5:PRINT"-4 e _ r we 

2296 COLOR1,7,6:PRINT"-+ Lo . 4 „L 

2297 COLOR1,7,7:PRINT"-+ 4 41t1r I4ii 4 


Lu 
„.s 
„rn 
2298 PRINT:PRINT=: PRINT A 
2299 EOLOR1,7,1:PRINT” he et it ttı ILitt Jk„ıLLire 
2388 COLOR1,7,2:PRINT" 4 
2381 COLORi,7,3:PRINT" er 
2382 COLOR1,7,4:PRINT® L 
2383 COLOR1,7,5:PRINT" x 


| 
= 
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2384 
23085 
23026 
2328 
238297 
2318 
2315 
2328 
2350 
2331 
2332 
2333 
2534 
2342 
23543 
2344 
2345 


23546 
2347 
2419 
2420 
2430 
2449 


2518 
2528 
25538 
2548 
2558 
2568 
2578 
2588 


2670 
2588 
26978 
2700 
27805 
2788 
2719 
2720 
2738 
2740 
27580 
2768 
2770 
2771 
2788 
2798 
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COLOR1,7,&:PRINT" 1 11.12 12 12.4 ıı 
L LLrLıın 


PR 
COLOR1,7,7:PRINT" 411 212 0 2.4 ı 
COLOR1,7,5: CHAR, 14,21, "SPRENGER SOFTWARE" 
POKE65286 ‚PEEK (65286) OR1& 
COLOR1,2 
FORMX=36TOBSTEP-1: IFMX=11THENMY=S21:2CHAR,12,23," "zCHAR,13,24," "sELSEMY=23 
IFMX=1BTHEN CHAR,12,21," "3CHAR,12,22," ® 
IFMX>1BTHENCHAR MX „MY, "Bl "zELSECHARBMX,MY," |" 
LFMX/2=INT (MX/2) THENCHAR,MX „MY+1," 4 "3ELSECHAR,MX,MY+1," — " 
FORN=1T018@: NEXTN: SOUND1 , (33-MY) #80,5: GETA$: IFA$< >" " THEN2334: ELSENEXTMX 
CHAR,O,23," "SCHAR,G,24," 
GETKEYA$:SOUND1,558,1® 
SENCLR= COLOR ,1:COLOR@,7,6:COLOR4,1 
FORA=15248T015279: READD: POKE A,D:NEXTA 
DATA24,24,24,255,255,0,2,8 


L 
„ 


DATAB,B,2,255,255,24,24,24 

DATA24 ,24,24,248,248,24,24,24 

DATA192,192,192,192,192,192,192,192 245@ SCNELR=:COLOR1,1:COLORQ@,7,6 
DATR224,224,224,224,224,224,224,224 2468 SDUND 1,559,18 

RETURN 2470 ee CD=1 TO Z808:NEXT ED 
BEE EER EEE EEE En 2480 A$="N":C=3:D=18 

REM KOMENTAR 2490 ur MULTIGRAPHIC" 

KEN me 2308 AS (DI =" nm nn nn ” 
AF(5S)="MIT DIESEM PROGRAMM KANN MAN DEN" 2598 IF A=2 THEN C=4 

A$(4)=" "GRAPHIK ’-ZEICHENSATZ DIREKT" 2408 IF A=3 THEN C=8:D=3 
AFLSI="VERAENDERN, UM EIGENE ZEICHEN ZU" 2618 IF A=4 THEN D=+S 
AS(&)="KREIEREN. DIESE KOENNEN ABGESPEI—-" 2620 IF A=5 THEN D=3 
AS{7/)="CHERT, NACHHER WIEDER VERWENDET" 2638 IF A=3 THEN C=?2 
AS(BI="WERDEN. (Z.B.FUER EIGENE SPIELE)" 2840 CHAR ,D+B,C,MID$S (AS (A) ,„B,1) 
AFLMN="DRUECKEN SIE EINE BELIEBIGE TASTE" 2658 SOUND 3,980,2 

FOR A=1 TO 9: FOR B= 1 TO LENtAFtA)) 26648 FOR F=eiTOSB:NEXT F 


GETC$: IFOS< > "THENZ7OR: ELSENEXTB: C=C+2: SOUND1 ,90@,10:NEXT A 
CHAR,4,22,"MDRUECKEN SIE EINE BELIEBIGE TASTES" 

GETKEYDF$: SOUND „558,18 

SOUND1 ,558, 18: SCNELR 

CHAR, 11,3,A$(1) 

CHAR,11,4,A$ (2) 

A$(3)="NDORMALE CURSORSTEUERUNG UEBER" 

A$(4)="DIE CURSORTASTEN. AUSMALEN BZW." 


AF{SI="LOESCHEN DER FELDER MIT DER SPALE" 

AF(öI="TASTE. UMSCHALTEN DER SRAFHIK-" 

AFCT)I="ZEICHEN MIT DER C= UND DER <SHIFT" 

A$(B)="TASTE. WEITERE FUNKTIONEN SIND " 

AFIY)="UEBER DIE TASTATUR EINZUGEBEN." 2828 IF A=19 THEN C=22 
AS{LIBI="DRUECKEN SIE EINE BELIEBIGE TASTE" 2858 CHAR ,„D+B,C,MIDS (AStA) ,B,1) 
C=7:D=3 2848 SOUND 3,988,2 

FORA=3 TO1Q:FOR B= i TO LEN{AF(A)) 2858 FÜR F=1T060: NEXT F 


2860 GETD£: IFD$< >" "THENRETURN: ELSENEXTB: C=C+2: SOUNDI „IRQ, 1@:NEXT A 
2870 CHAR,4,22,"IDRUECKEN SIE EINE BELIEBIGE TASTER": BETKEYAF 
2880 SOUNDI ‚550,10: SCNELR 

2890 RETURN 

29808 REM -- men 5 


Ende des Listings 
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